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AN INTEGRAL EQUATION FORMULATION FOR PREDICTING 
RADIATION PATTERNS OF A SPACE SHUTTLE 
ANNULAR SLOT ANTENNA 1 

By J. Earl Jones and J. H. Richmond 2 
Langley Research Center 

SUMMARY 

A synopsis is presented of a recently developed, integral equation formulation for 
predicting radiation patterns of thin axial slot antennas mounted on an infinitely long, 
perfectly conducting cylinder of arbitrary cross section. The method is applied to com- 
pute radiation patterns in both the pitch and roll planes of a thin VHF/UHF (very high 
frequency/ultra high frequency) annular slot communications antenna operating at several 
locations in the nose region of the Space Shuttle orbiter. Digital computer programs used 
to compute radiation patterns are also given and the use of the programs is illustrated. 
Experimental verification of computed patterns is given from measurements made on 
1/35-scale models of the orbiter. 

The results indicate that even when formulated for two-dimensional bodies, the inte- 
gral equation formulation is useful for predicting principal plane radiation patterns of 
antennas mounted on moderate to large electrical size bodies such as the Space Shuttle 
orbiter. The upper limit of the perimeter of the body is dependent on the size of the digi- 
tal computer used to make the computations. For the computer employed, the maximum 
perimeter was found to be from 30 to 36 wavelengths. 

INTRODUCTION 

The Space Shuttle is a reusable NASA vehicle that is expected to receive consider- 
able attention in the forthcoming decade. The motivation for the development of the Space 
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Shuttle is the reduction in cost of launching spacecraft into earth orbit and the transporta- 
tion of men and supplies to and from orbiting space stations. Reusability is achieved by 
allowing the vehicle to take off like a rocket and to land like an airplane. Thus, the Space 
Shuttle will require a large number of antennas, since aircraft-type landing and navigation 
antennas will be needed in addition to the usual spacecraft antennas. Moreover, since the 
vehicle surface will be at extreme temperatures during atmospheric reentry, antenna 
locations must be selected in regions where minimum temperatures are anticipated, as 
well as in regions where structural impact is minimal. 

Space Shuttle antennas must possess specific performance characteristics, that is, 
radiation patterns, impedance, and so forth, in order for desired mission objectives to be 
achieved. A purely experimental design approach for one antenna would be to (a) construct 
many scale models of the orbiter, each model containing a proposed antenna geometry at a 
proposed location, (b) conduct performance measurements, and (c) conclude by selecting 
the geometry and location giving the most desirable data. However, for Space Shuttle 
antenna design, this approach has two disadvantages: (a) excessive time and cost are 
required to construct many models and to conduct many measurements, and (b) changes 
in the geometry of the vehicle, which is currently only in early design stages, would 
necessitate the construction and testing of new models to determine whether the antenna 
performance remains adequate. 

A more desirable approach to Space Shuttle antenna design would be to apply theo- 
retical methods which would provide some indication of antenna performance. Easily 
adaptable to a digital computer, such methods could then be used to compute antenna per- 
formance for a wide variety of conditions of antenna geometry and location on the vehicle 
surface. The design parameters yielding desirable theoretical performance data could 
then be used to construct a scale model for final checkout. Not only are excessive model 
construction and testing avoided in this approach, but also the time required to ascertain 
the influence of a vehicle geometry design change is significantly reduced. 

The two basic theoretical methods believed to provide the most useful insight into 
Space Shuttle antenna design are (a) the integral equation formulation (IEF) (refs. 1 to 5) 
and (b) the geometrical theory of diffraction (GTD) (refs. 6 to 9). Both IEF (refs. 10 to 12) 
and GTD (refs. 13 to 16) have recently been used with success in the design of spacecraft 
and aircraft antennas, and the advantages and limitations of each method are well- 
documented (ref. 17). Even though GTD and IEF are inherently useful for analyzing 
antennas mounted on electrically large and electrically small bodies, respectively, the 
nature of the Space Shuttle antenna design will require the application of both methods. 
Furthermore, since there is usually a range of body electrical size for which both GTD 
and IEF are applicable (ref. 17), the use of both methods serves as a check case. 
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In this paper, an IEF recently developed by Richmond (ref. 5) hereafter designated 
as the ’ 'Richmond Integral Equation Formulation” (RIEF), is briefly described and applied 
to predict radiation patterns in both the pitch and roll planes of a thin VHF/UHF annular 
slot communications antenna operating at several locations in the nose region of the Space 
Shuttle orbiter. Radiation patterns computed by RIEF are given for selected cases. 
Experimental verification for RIEF is given from radiation pattern measurements made 
with 1/35-scale models of the Space Shuttle orbiter, and the merits and limitations of 
RIEF for Space Shuttle antenna design are discussed. 

The digital computer programs used for computing radiation patterns are given in 
appendix A. Finally, an example illustrating the use of the programs is given in 
appendix B. 


SYMBOLS 


a mean radius of annular slot 

dj inner diameter of annular slot 

d^f mean diameter of annular slot 

d n length of segment n 

<Xq outer diameter of annular slot 

E electric field vector in annular slot aperture 

Ej[ electric field radiated by strip vee dipole i 

radiation field 

[I] N X 1 (column) matrix of unknown dipole mode currents 

I n current per unit length at point P n 

i index of point, segment, strip vee dipole 

j D surface current density along strip vee dipole n 
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j n surface current density along segment n 

j index of point, segment, strip vee dipole 

k free -space propagation constant 

N number of points, number of segments, number of strip vee dipoles, 

number of simultaneous equations 

N 1 number of coarse points 

n index of point, segment, strip vee dipole 

n 1 ,n2,n 3 ,n 4 ,n 5 dimensioning integers 

p n point of intersection between segments n - 1 (segment N for n = 1) 

and n 

s n orientation unit vector of segment n 

tj distance from point Pj_i along strip vee dipole j 

t n distance along segment n from point P n 

t n -i distance along segment n-1 from point P n _i 

[V] N x 1 (column) excitation matrix 

V n voltage of point P n 

x,y distances along X- and Y-axes 

x,y vector notation for X- and Y-axes 

x n ,y n distances of point P n along X- and Y-axes 

[Z] N x N matrix of impedance coefficients 
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Zjj free- space mutual impedance between strip vee dipole i and strip vee 

dipole j 

direction angles of segment n 
X free- space wavelength 

0 reference angle 

0 p pitch-plane reference angle 

0 r roll-plane reference angle 

C ON FI GUR AT ION 

An annular slot antenna having an inner diameter of 48.37 cm and an outer diameter 
of 58.31 cm and radiating over the frequency range of 150 to 400 MHz is to be considered 
for operation at the points A, Bi, and B 2 , as indicated in figure 1 on a diagram of the 
Space Shuttle orbiter. The roll and pitch planes in which radiation patterns are to be 
determined, as well as the roll-plane reference angle 0 r and the pitch-plane reference 
angle 0 p , are also defined in figure 1. Roll-plane patterns are to be obtained for the 
annular slot excited at A (designated as case 1 throughout this paper) and at Bi (case 2), 
and simultaneously excited at Bj and B 2 (case 3). Pitch -plane patterns are also to be 
obtained for the annular slot excited at A (case 4). 

Since the orbiter is electrically large over the required operating frequency range, 
a reasonable approximation is to assume the roll -plane pattern to be the pattern produced 
by an annular slot located on an infinitely long, perfectly conducting cylinder of the same 
cross section as the cross section of the orbiter in the plane containing the points A, 
and B 2 and perpendicular to the longitudinal axis of the orbiter. Similarly, it is reason- 
able to assume the pitch -plane pattern to be the pattern produced by an annular slot 
located on an infinitely long, perfectly conducting cylinder having the same cross section 
as the cross section of the orbiter in the plane containing point A and the longitudinal axis 
of the orbiter. However, since the size of the orbiter in the pitch plane exceeds the limi- 
tations of RIEF, a foreshortened approximation (to be explained later) is used for the 
pitch -plane cross section in order to make pattern computations. 
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INTEGRAL EQUATION FORMULATION 


Richmond (ref. 5) has recently developed a Galerkin’s method IEF solution (RIEF) 
and a user-oriented digital computer program for computing the radiation pattern of one 
or more axial slot antennas mounted on a conducting cylinder of infinite length and arbi- 
trary cross section. The slot antennas may be either narrow (with infinitesimal width) or 
wide (with finite width). For simplicity, application of RIEF in this paper is for several 
narrow axial slots mounted on a perfectly conducting cylinder, the geometry of which is 
shown in figure 2. The electromagnetic field is assumed to be transverse electric (TE) 
to the cylinder axis; thus, the radiation field consists of only the component. A 

synopsis of RIEF is given in this paper; further details are given in reference 5. 

In RIEF, the cylinder cross-section profile is initially subdivided into a specified 
number N of straight segments, as shown in figure 2. The point of intersection 
P n (n = 1, 2, . . ., N) of any two adjacent segments 3 n and n + 1 is regarded as a 
’'delta gap” across which a known voltage V n may exist for excitation of the structure. 
Points for which V n ^ 0 are interpreted as narrow axial slots so that in the subdivision 
process any narrow axial slot on the cylinder is required to be located at a point of 
intersection. 

Segment n (n = 1, 2, . . ., N) is characterized by the end points P n = (x n ,y n ) 
and P n+1 = (x n+ i,y n+ i), segment length d n = [(x n+1 - x n )2 + (y n+1 - yn) 2 * * ] 1 / 2 , and 
orientation unit vector s n - cos a n x + cos /3 n y directed from P n to P n+ i, where 
cos at n = (x n+1 - x n )/d n and cos /3 n = (Y n+1 - y n )/d n . For accurate radiation pattern 
computations, all segments should be no greater than a/ 4 in length where A is the free- 
space wavelength. Accuracy is enhanced, however, if the length is moderately shorter than 
X/4, especially for segments close to a narrow axial slot. 

Any two adjacent segments represent the arms of a strip vee dipole; in particular, 
segments n - 1 and n constitute strip vee dipole n, as indicated in figure 2. In all, 
there are N overlapping strip vee dipoles. A useful representation for the surface 
current distribution on dipole n is the piecewise sinusoidal representation 

J Dn(‘) = In S l rfefe n-l <° S ‘n-1 S d n-l) M 


J Dn^) = l n 


sin k(d n - t n ) 
sin kd n 


(0 S tn s dn) (lb) 


2 Since the array of segments in figure 2 is a closed array of segments, the index 

n + 1 must be replaced by 1 for n = N, and the index n - 1 must be replaced by N 

for n = 1. 
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where t n _q is the distance from P n -1 along segment n - 1 and t n is the distance 
from P n along segment n, and where k = 2-ir/x. From equations (1), the resultant 
surface current distribution on segment n is given by 



[In-el sin kt n + I n sin k(d n - t n )] 
sin kd n 


n 


(0 = t n = d n ) 


( 2 ) 


where t n is the distance from P n along segment n. 

The endpoint surface current densities I n (n = 1, 2, . . ., N) which are unknown 
quantities are determined by solving the system of N simultaneous equations 


[Z][I] = [V] 


(3) 


where [Z] is a NXN impedance coefficient matrix which can be determined (ref. 5), 
[I] is the N x 1 (column) matrix of unknown dipole mode currents, and [V] is the 
N x 1 (column) excitation matrix, the elements of which are nonzero only for actual 
slots. The Z^j (i,j = 1, 2, . . ., N) in [Z] physically represent the free-space 
mutual impedance between strip vee dipole i and strip vee dipole j under the condi- 
tion for which the current distribution on each dipole is piecewise sinusoidal. Thus, 


Z-. = — ±— 

11 hh 


V E i( t 3-l) • J Dj(tj-i)dti-i 




] E i(‘j) 


j Dj ( tj ) dt 


(4) 


where E i is the electric field radiated by dipole i due to the current distribution 
given by equations (1) and evaluated on the surface of dipole j (the surface of and points 
interior to dipole j are assumed to be replaced by free space), J^j is also given by 
equations (1), and tj is the distance from along segment j. Details for com- 

puting Zjj are given in reference 5. 

The solution for [I] yields the coefficients I n needed in equation (2) for the 
computation of the current distribution on the cylinder. Standard techniques are then 
employed to compute the radiation field E^. Patterns are computed with the coordinate 
origin 0 as the phase center. 


REPRESENTATION OF AN ANNULAR SLOT 


In order for the roll- and pitch-plane patterns of the annular slot in figure 1 to be 
computed, subject to the approximations given, the radiation pattern of a thin annular slot 
located on an infinitely long, perfectly conducting, noncircular cylinder must be computed 
in a plane perpendicular to the axis of the cylinder and containing the center of the 
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annular slot, as shown in figure 3. Under the assumption that the field in the annular 
slot aperture is transverse electric and magnetic (TEM) to the aperture, E on any 
radial line of the slot aperture is equal in amplitude and opposite in phase to E on the 
diametrically opposite radial line. Consequently, application of RIEF for narrow axial 
slots requires that the annular slot be simulated, as shown in figure 3, by an equivalent 
array of two infinitely long, antiphase narrow axial slots of equal amplitude, and spaced 
by the distance d M = (d i + d 0 )/2, where dj and do are the inner and outer diameters, 
respectively, of the annular slot. 

EXPERIMENTAL MODELS 

Two 1/3 5- scale models were constructed for obtaining radiation patterns experi- 
mentally. The first model, shown in figure 4, is a cylindrical model having a cross sec- 
tion similar to the cross section of the orbiter in the roll plane. The second model, 
shown in figure 5, is a three-dimensional model with the side and front views clearly 
showing the pitch- and roll-plane cross-section profiles, respectively. For the scale 
models, the annular slot inner diameter scales to 1.382 cm and the outer diameter scales 
to 1.666 cm, and the frequency range 4 of 150 to 400 MHz scales to 5.250 to 14.000 GHz. 

For each model, the location of the annular slot antenna corresponds to point A of figure 1; 
consequently, the cylindrical model may be used to obtain radiation patterns only for 
case 1 and the three-dimensional model may be used to obtain radiation patterns only for 
cases 1 and 4. 

Since RIEF is directly applicable only for two-dimensional models, the purpose of 
the cylindrical model is to verify RIEF experimentally. The infinitely long cylinder 
assumed in RIEF is simulated experimentally by a cylinder of length 39.04 cm, as shown 
in figure 4. This length is 6.83 wavelengths at the lowest desired scaled frequency of 
5.250 GHz. 


NUMERICAL COMPUTATIONS AND EXPERIMENT 

RIEF was applied to obtain computations of the radiation patterns for cases 1 to 4. 
Computations were made over the scaled frequency range for the 1/35 -scale model. For 
each pattern computation, only a coarse number N’ (N 1 % N + 1) of points were initially 
specified. The remaining points P n , particularly those in the shadow region of the 
slot(s), were automatically selected with the aid of a spline curve fit procedure. This 
procedure not only reduces the number of input data points but also is desirable In order 


4 In this paper, frequencies given in GHz refer to the 1/35-scale models; and those 
given in MHz refer to the full-scale structure. 
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that a smooth profile be obtained, since in most cases the points must be read graphically 
from drawings and inaccuracies in profile smoothness often result. 

The digital computer programs which were used to obtain radiation pattern compu- 
tations are given in appendix A. An example illustrating the use of the programs is given 
in appendix B. 

The upper limit of the perimeter of a cylinder which can be analyzed with RIEF is 
dependent on the storage capacity of the computer used to obtain computations, which, in 
this paper, were made on a Control Data Corporation 6600 computer at NASA Langley 
Research Center. It was found that for this computer and for the auxiliary plotting pro- 
grams employed, the maximum number of simultaneous equations which could be solved 
without exceeding storage capacity was 180. Under this condition, the upper limit of the 
perimeter is from 30 to 35 wavelengths, and the running time for a typical pattern 
(1° increments) is about 100 seconds. 

Roll-Plane Radiation Patterns 

The roll-plane cross section in the plane containing the points A, Bj, and B 2 is 
described for case 1 by 154 points shown in figure 6. When these points are connected, 
a polygon of perimeter 70.58 cm is formed, and 154 simultaneous equations are solved to 
compute the radiation pattern. 

The geometry for cases 2 and 3 is shown in figures 7 and 8, respectively. The 
point locations in figures 7 and 8 are similar to the point locations in figure 6, except that 
in figures 7 and 8 additional points were added in the vicinity of the sources. This proce- 
dure is necessary to obtain more reliable data for cases 2 and 3. The perimeter, num- 
ber of points and simultaneous equations, the scaled coordinates of the center of the annu- 
lar slots, and the scaled coordinates and voltage strengths of the equivalent axial slots 
are conveniently presented for each case in table I. 

Experimental verification for the roll-plane patterns was achieved with measure- 
ments made on both experimental models at 10.900 GHz (311.4 MHz). The results are 
given in figure 9 where a comparison with theory is given. Computed radiation patterns 
for cases 1 to 3 over the range of 5.250 to 13.125 GHz (150 to 375 MHz) are presented in 
figure 10. 

Pitch-Plane Radiation Patterns 

Computations of the pitch -plane patterns (case 4) are more difficult, since the 
perimeter of the pitch -plane cross-section profile varies roughly from 60 to 150 wave- 
lengths over the desired frequency range. Under this condition, application of RIEF would 
require the solution of a minimum of 300 simultaneous equations, a number which leads to 
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excessive computer storage requirements. The profile electrical size would indicate 
GTD to be a more useful approach for this computation. Unfortunately, GTD is not easily 
applicable to this profile, since practical use of GTD is limited currently to profiles con- 
vex in shape. 

However, since patterns are of interest primarily in the lit region and in the for- 
ward direction, the portion of the pitch-plane cross-section profile from the back of the 
cockpit to the tail may be ignored by closing the cross section, as indicated in figure 11. 
The result is a polygon described by 178 points, leading to a system of 178 simultaneous 
equations. (See table I.) A computed pitch-plane pattern for the geometry of figure 11 is 
given in figure 12, with experimental verification obtained from the three-dimensional 
model of figure 5. 


DISCUSSION OF RESULTS 

The reliability of computing principal -plane radiation patterns of thin annular slots 
mounted on a spacecraft, such as the Space Shuttle orbiter, by use of RIEF and the 
approximations made is enhanced by the excellent agreement between theory and experi- 
ment shown in figures 9 and 12. It is evident from figures 9, 10, and 12 that a null occurs 
in the lit region on the normal to the plane of the annular slot aperture, and that major 
lobes occur at roughly 60° on either side of the normal. This result is generally true for 
a thin annular slot of mean radius a mounted on a ground plane of infinite extent and 
having a value of ka = 2, pattern breakup occurring for larger values ^ of ka. (See 
ref. 18, pp. 8-8 and 8-9.) 

If the annular slot is located at A, figures 9 and 10(a) reveal that ground coverage 
is poor, especially in the shadow regions. An improvement in ground coverage is 
achieved, as indicated in figure 10(b), if the annular slot is located at Bj (or B 2 ), but 
coverage is asymmetrical unless both locations and a switching arrangement are used. 
However, symmetry is achieved if the annular slots at and B 2 are excited simultane- 
ously, as indicated in figure 10(c), but pattern breakup is evident, as is generally encoun- 
tered for arrays of widely separated antennas on electrically large bodies. Obviously, 
excellent ground coverage would be achieved if an annular slot were located on the under- 
side of the orbiter, but this location is undesirable because of the excessive heat antici- 
pated during atmospheric reentry. Figure 10 reveals that not only is the ripple structure 
finer as the frequency is increased, but also the fields in the shadow region are relatively 
weaker; that is, shadow boundaries are more sharply defined. Finally, figure 12 reveals 
that desired forward direction coverage results if the annular slot is located at A. 


^Maximum value of ka = k(d M /2) for the annular slot in this paper is 2.25 at a fre- 
quency of 400 MHz. 
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It was noted that for all cases the phase of the radiation field fluctuates through 
many cycles, particularly in the shadow regions, as either <£ r or 0p is varied from 0° 
to 360°. This result is generally true for antennas on electrically large bodies. 

CONCLUDING REMARKS 

In this paper, a digital computer program based on a two-dimensional integral equa- 
tion formulation (Richmond Integral Equation Formulation) was applied to predict radiation 
patterns of annular slot antennas mounted on the Space Shuttle orbiter. The excellent 
agreement between computed patterns and patterns obtained from measurements made on 
1/3 5- scale models supports the use of this approach for future similar spacecraft or air- 
craft antenna design problems. 

By use of the Richmond Integral Equation Formulation, additional radiation patterns 
may be predicted easily as the design parameters of the orbiter or antenna are changed; 
thus, it is insured that proper radiation pattern coverage is maintained from design to con- 
struction. The Richmond Integral Equation Formulation may also be readily applied to 
predict patterns of other antennas of interest such as slot antennas. If antenna arrays are 
considered, the solution to the set of simultaneous equations automatically includes mutual 
coupling effects. 

Although limited by computer storage requirements, the Richmond Integral Equation 
Formulation is characterized by ease of input data points describing the profile and antenna 
to be analyzed. In contrast, the use oLgeometrical theory of diffraction requires a much 
more critical selection of input data points and equations describing the body surface 
between any successive pair of points, since smooth functions of the radius of curvature 
and its arc. length derivatives are required. 

Langley Research Center, 

National Aeronautics and Space Administration, 

Hampton, Va., March 25, 1974. 
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APPENDIX A 


DIGITAL COMPUTER PROGRAMS 

The purpose of this appendix is to present and to describe the use of the digital com- 
puter programs employed to obtain computations and plots of the radiation patterns for the 
Space Shuttle annular slot antennas described in the text. As indicated in the text, the 
pattern computations and plots obtained by use of RIEF (see fig. 2) require a knowledge of 
(a) the X- and Y-coordinates of the end points of the segments used to approximate the 
cross-sectional profile of the orbiter in the plane in which the pattern is to be computed, 
and (b) the voltage strengths and the point indices of the equivalent narrow axial slot 
antennas representing the annular slot antennas. It should be noted in figure 2 that the 
end points of the profile segments are indexed in a counterclockwise direction, the first 
point being located at <p = 0°. 

It is also indicated in the text that only a coarse number of points are specified ini- 
tially and that the remaining points are generated with the aid of a spline fit procedure. In 
this appendix and in appendix B, for the sake of nomenclature, an initially specified point 
is designated as a '’coarse point,” and the index of the coarse point as the "coarse point 
index.” Any one of the end points generated by the spline curve fit procedure and required 
for the computation of a radiation pattern is designated as an "actual point" and the index 
as the "actual point index." 

The N’ coarse points are defined and are indexed in the same manner as the N 
actual points defined in figure 2. However, coarse point N T is located and specified at 
the same point as coarse point 1, After the spline fit procedure is applied to generate the 
N actual points from specification of the coarse points, it will be found that the actual 
points consist of all the coarse points (except coarse point N’) and additional points 
located between any two consecutive coarse points. If it is desired that the coarse points 
and the actual points be identical, then N’ = N + 1. Under this condition, no points are 
generated between any pair of consecutive coarse points. If the spline fit procedure is 
used to generate additional points, however, then N f ^ N + 1. 

The main program and all supporting subroutines used for analysis of the Space 
Shuttle annular slot antennas are given at the end of this appendix. This program requires 
a specification of the following data: (a) number of coarse points N’ and the X- and Y- 

coordinates of each coarse point, (b) the indices of the coarse points at which the equiva- 
lent narrow axial slots are located,® (c) the voltage strengths of the narrow axial slots, 


® A narrow axial slot is required to be located at a coarse point; conversely, a 
coarse point is required to be designated at a narrow axial slot. 
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APPENDIX A - Continued 


(d) the initial frequency, the incremental frequency, and the final frequency of the fre- 
quency range over which radiation patterns are to be computed, (e) an array of integers 
which indicate the number of segments that are to be generated between any two consecu- 
tive coarse points by means of a two-dimensional spline fit method, and (f) the coarse 
point index at which the spline fit is to be initiated. 7 

After these data are specified, the main program calls subroutine SPLFIT, which, in 
turn, calls subroutine SPFIT2, to generate the^X- and Y- coordinates of the N actual 
points from the spline fit procedure. The main program then calls subroutine CVRTV to 
convert the coarse point indices of the narrow axial slots to the actual point indices as 
defined in figure 2. After calls to subroutines SPLFIT and CVRTV are made, then the 
main program, as a function of frequency, converts the X- and Y-coordinates of the N 
actual points from units of centimeters to units of wavelength and calls subroutine TESLOT 
to compute the radiation pattern. 

Subroutine SKETCH is a subroutine which generates instructions on a magnetic tape 
used to drive the CalComp (California Computer Products, Inc.) plotter. Called by the 
main program, subroutine SKETCH plots the set of N actual points describing the cross- 
section profile. A call to subroutine SKETCH produces a plot similar to the plots given 
in figures 6 to 8, and immediately below the plot a scale is given. For the first call to 
subroutine SKETCH, the X- and Y-coordinates are in centimeters, and the scale is in 
centimeters per inch (on the plotting paper). For the remaining calls to subroutine 
SKETCH, the X- and Y-coordinates are in wavelengths, and the scale is in wavelengths 
per inch (on the plotting paper). 

Subroutine DBPLOT is a subroutine also used to generate instructions on a magnetic 
tape for driving the CalComp plotter. At each frequency over the range of frequencies for 
which a radiation pattern is desired, subroutine DBPLOT produces a polar plot of radia- 
tion field magnitude, in decibels, against 0 p or 0 r and a rectangular plot of radiation 
field phase, in degrees, against 0 p or 0 r . 

The programs given apply for obtaining computations and plots of radiation patterns 
of, in general, a set of narrow axial slot antennas (or annular slot antennas, each of which 
is represented by a pair of narrow axial slots) mounted on a cylinder of arbitrary cross 
section. In order to use the programs, the user is required to have additional knowledge 
of how the input data are set up for transmission to the main program and to have a knowl- 
edge of how the arrays in the main program are dimensioned. 


7 The point at which the spline fit is initiated is chosen to be in an approximately 
linear region of the profile. 
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APPENDIX A - Continued 
Input Data 

All input data are read in through the main program. The first input data card con- 
tains the following quantities: NPTIN, ISTART, NPORT, MADM, KI, KWRTl, KWRT2, 

KWRT3, ISKIPP, ISIZEP, HP AT, FMCO, FMCD, and FMCF. The quantities are defined 

as follows: 

NPTIN Number of coarse points describing the cross-section profile (NPTIN ^ N + 1, 
where N = Actual number of points, as defined in fig. 2) 

ISTART Coarse point index at which the spline fit is to be initiated 
(1 ^ ISTART ^ NPTIN) 

NPORT Number of narrow axial slots (1 = NPORT = NPTIN) 

MADM 1 or 0. For MADM = 1, the short-circuit admittance matrix for all ports 

(that is, narrow axial slots) is computed. For MADM = 0, this computation 
is avoided. (In this paper, MADM = 0 for all computations) 

KI number of angular values of (p p or 0 r at which the radiation field is 

computed (KI = 361, which is used for all computations in this paper, gives 
pattern computations in 1° increments) 

KWRTl 1 or 0. KWRTl = 1 gives a write out of the X- and Y- coordinates, in wave- 
lengths, of the N actual points and the distance, in wavelengths, between 

any two consecutive segments. KWRTl = 0 avoids this write out 

KWRT2 1 or 0. KWRT2 = 1 gives a write out of the real part, the imaginary part, 
the magnitude, and the phase of the radiation field E^ for each of the KI 
angular values of (p^ or $ r . KWRT2 = 0 avoids this write out 

KWRT3 1 or 0. KWRT3 = 1 gives a write out of the value of in decibels, the 

normalized value of E^, and the phase of the radiation field E^ for each 
of the KI angular values of 0 p or cp T . The value of E^ in decibels and 
the normalized value of E^ are with respect to the maximum value of 
occurring among the KI values of E^ computed. KWRT3 = 0 avoids this 
write out 

ISKIPP Integer required for obtaining radiation pattern plots. ISKIPP is positive for 
line and symbol plots, and is negative for symbol -only plots. The magnitude 
of ISKIPP specifies the alternate number of data points at which a symbol is 
plotted 


14 



APPENDIX A - Continued 


ISIZEP I, 2, or 3. ISIZEP = 1 produces small size symbols, ISIZEP = 2 produces 
medium size symbols, and ISIZEP = 3 produces large size symbols 

HPAT A floating point number that is five times the radius, in inches, of the polar 
plots to be made with subroutine DBPLOT. 

FMCO Initial frequency, in MHz, for which pattern computations are to be made 

FMCD Incremental frequency, in MHz, for which pattern computations are to be made 

FMCF Final frequency, in MHz, for which pattern computations are to be made 

After the first data card is read in, a set of NPORT data cards is then read into the 
main program. On each card are specified the port index I, the coarse poini index JVGS(I), 
and the complex voltage strength VGS(I) of the Ith port (that is, the Ith narrow axial slot). 

Next, a set of NPTIN data cards is read into the main program. On each card is an 
identifying integer IGNORE, the X-coordinate PNTIN (1,1), in cm, and the Y-coordinate 
PNTIN (1,2), in cm, of the Ith coarse point. 

Finally, the IDIVD array of integers is read into the main program. The IDIVD 
array of integers is a set of NSEG = (NPTIN - 1) integers INDIVID(I) (I = 1, 2, . . NSEG) 
which specify the number of segments that will occur between any pair of consecutive 
coarse points as a result of the use of subroutines SPLFIT and SPFIT2. Specifically, if 
IDIVD(I) = IX, then IX segments will occur (or DC-1 points will be generated) between 
coarse point I and coarse point I + 1. All segments between any two consecutive coarse 
points are approximately equal in length, which should be no greater than x/4 at the high- 
est frequency for which radiation pattern computations are desired. It should be noted 
that the sum of the NSEG integers in the IDIVD array is equal to the number of actual seg- 
ments and points N generated for use in subroutine TESLOT. As noted in the text, this 
number should not exceed 180 if the Control Data Corporation 6600 computer at NASA 
Langley Research Center is employed. If the generation of spline-fitted points is desired 
to be avoided altogether (that is, the coarse points and the actual points are identical, 
except that coarse point N r is omitted), it is necessary only to set all NSEG integers 
equal to 1 in the IDIVD array. Under this condition, the N + 1 coarse points become the 
N points required by subroutine TESLOT for computation of the radiation pattern. 

Dimension of Arrays in the Main Program 

In some applications, the user may wish to change the dimensions of the arrays in 
the main program. To change the dimensions, define the following integers: 
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maximum number of actual points (and simultaneous equations) 

1*2 maximum number of narrow axial slots 

n 3 maximum number of angular values for which radiation patterns are desired 

114 = n 3 + 2 

115 maximum number of coarse points 

Then the following statements must appear in the main program: 

PROGRAM MAIN (INPUT, OUTPUT, . . .) ' 

COMMON/BLK1/KNTPLT, XNEW, YNEW 
COMPLEX VGS, C, CJ, EPP, YMMHO, ZINPUT 
DIMENSION X(n x ), Y(nj), XCfnj), YCjnj), VGS(n 2 ), IVGS(n 2 ), 

1 D(n x ), C(n 1>ni ), Cj( ni ), EPP(ni), YMMHO(n 2 ,n 2 ), 

2 THTA(n 4 ), AEPHl(n 4 ), RATIO(n 4 ), PEPHl(n 4 ), AEY(n 4 ), 

3 XW(nj_), YW( ni ), PNTIN(n 5 ,2), SPNTIN(n 5 , 2 ), IDIVD(n 5 ), 

4 ELEN(n 5 ), COEF(n 5 ,4,2), XPNT( ni ), YPNT(n t ), JVGS(n 2 ) 

MAXP = n 5 

MAXCO = n 5 
MXNPT = n x 
MX PORT = n 2 
CALL CALCOMP 
CALL LEROY 
KNTPLT = 0 

END 
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For the main program nj corresponds to 170, n 2 to 4, n 3 to 723, n 4 to 725, 
and n 5 to 57. A restriction is that the sum of the NSEG integers in the IDIVD array 
must not exceed the value of n^. 


Main Computer Program for Obtaining Computations of Space 
Shuttle Annular Slot Antenna Radiation Patterns 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

c 

c 

c 

c 


PRUGRAM MA INC I NP UT , OUTPUT » TA PE5 = I N PUT , T AP Et = 0UT PU T ) 

J, EARL JONES, ARS-TRb— F I Li, PHONE 3631, PAIL STOP 490 — NASA45E97C 


* * 

* PURPOSE -TO SET UP INPUT i>ATA TO SUBROUTINES TESLOT AND C8PLCT * 

* TQ CtJTAIN, OVER A RANGE CF FREQUENCIES, RADIATION * 

* PATTERN CALCULATIONS AND PLOTS AND TO OBTAIN T HE * 

* SHORT CIRCUIT ALMITTANCE MATRIX OF AN ARRAY OF TE * 

* SLOTS ON A PERFECTLY CONDUCTING CYLINDER CF ARBITRARY * 

* CROSS SECTION * 

* * 

* DEFINITIONS FMCQ=INITIAL FRtwUENCY, MHZ. * 

* f PC 0= I NCR tMfcNT AL FREQUENCY, MHZ* * 

* F MCF = F INAL FREQUENCY, MHZ* * 

* * 

* NPO I NT , MxNPT , NPQRT » MAP0RT* MADM , K I , KluRTl , K WRT2 » * 

* K ftRT 3 , V GS , I VGS, Art, Y R , THT A , A E PH 1 , R A T I C , P EPH 1 , Y MMHO , ♦ 

* /INPUT, A NO LPTtPH ARE DEFINED IN SUBROUTINE * 

* TESLOT, ISK1PP»ISI ZEP, AND HP AT ARE DEFINED IN * 

* SUBROUTINE DbPLGT* * 

* * 

* IF ANALYSIS OCCURS OVER A RANGE OF FREQUENCIES, * 

* VALUES IN Xh AND YW ARE INITIALLY READ IN IN CM* * 

* anu these values are stored in ac ano : yc arrays* * 

* IF EITHER FFCC, FMCU, OR F M CF ARE SET TU A * 

* negative value, then values in a* and yw are * 

* UNUbRSTCuU TU BE READ IN IN WAVELENGTHS* * 

* * 


*************************************** *************************** 

COMMON /BLKl/ KNTPLT , XNE w, YNt w 
COM RLE A vGS,C,CJ ,EPP , YFMhO , ZI iviPUT 

DIMENSION A<] 7CJ , YC17G) ,XC(170), Yt (170 ),VGS<4), I VGSC4), 

1 ui 170) ,CC 170, 170 ,CJ117C) , fc PP 1 170 ) , YM MHC (4,4), 

2 THTAC723) ,AtPhl(72j I, RAT I GC 7*5) , P EPHlC 725 ),AEY(725) , 

3 Xw( 170) ,YW(17C) , PNT I N ( 3 7 , 2 ) ,SPNTI N ( 57 , 2 ) , I D I VO I 5 7 ) , 

4 ELENt 37),COEF { 57,4,^ ) ,XPNTl 170) , YFNTC 170) , JVGSC4 ) 

’ M AaP= 57 

M AXC'J = 57 
M XN P T - 1 7 0 
MAP ORT = 4 
CALL CALCOMP 
CALL LEROY 
K NT PL T = 0 
K T V = 1 

i RLAU{5»101) NPT I N, I ST ART ,NPukT,MAD M,KI , KRPT 1 ,KhRT2, K h RT3 , 

1 I SK I PP , I S U cP , H PA T , FM CO , F MC D r FM C F 

I F ( EOF , 5 | 4,6 

4 IFInNTPL T 8 bW«0) UC Tu 5 

CALL CALPLT ( XNEw, YNEw, -9S9 > 

5 STOP 
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1 

l 

l 


6 CUNTINut 

IMlFMCQ.tfc.O. ).CR.(FMCU.LE.Q. ).0R. t FMC F*L t • 0 • > ) KTV = 0 
RtAu(5» 103 > U , JVGM I ) iVbSU 1,1*1, NPOR T ) 

RtAD(S, tX) ( IGNUR£,PNTIM I,lJ*PNTIN(I ,2) ,I*1,NPT IN) 

N SE G= NP T IN- 1 

RtAUlSfl 08 ) ( IOI VU ( I > ,I*l,NSfcG) 

CALL SPLFIT( MAAP,MAXCC,NPT IN p I START.iPNT IN# IDI VD * £ L£ r ♦ 

1 cot Ff SPNTI N,XPNT, Yf NT y NPC IM» Art t Y W ) 

CALL CVRTV ( NPT IN»NPORT , JVUS, lOIVD, IVGS > 
wRI Tt<6,200) 

wRI T t ( 6 » 204 ) NPTINtlSTAHT 
WR1 TE (6,208 ) 

WRITE (o»206l 

WRITE (6, 1081 ( I 0 I VO( I ) , 1 *1 ,NSEG) 
wRIT£(6,2C8) 

WR I TE ( 6 , 201 ) 

wP.ITt (ot 151) NPCINTtMXNPT, NP CRT , MX P QRT , PAOP , M , Kw RT 1 , 

1 K.wRT2, K wRT3» I$KlPP,ISl4tP»hPAT»FMCO»FMCU»FMCF 
rtRITE (6,208) 

IF(KTV.EO.O) 1LNI t S = £. 

IHKTv.t^.i) I UMT S = 1 

CALL SnETCHIaw , Yw,NPUINT ,HPAT,i,22, I, I UMTS I 

IF< KvTV. EQ. 0) 0 C TO 14 

00 1C I = 1, NPGt NT 

aCU ) »XmUJ 

YCI I J = Y In (I ) 

10 CONTINUE 

wR I T E ( 6 » 209 ) 
wRITElt ,210) 

WRITE (6,102) U , xC< I) » YC U > » I*l,NPOINT > 

WKITl(G,20o) 

WRI TE(6 ,202) 

FMC=FMCO 

U Iw VL =30CC0# /FMC 

4RITt(6,2Ll) FMC.WVL 
UU 12 1*1, NPQI NT 
XwiI)=XC(I )/WVL 
YR( 1 ) = Y C ( I ) /wV/L 
12 CONTINUE 

wR I T l ( 6 » 20 6 ) 

CALL SNfcTCH<Xw ,Yw, NPCINT,HPAT» 1,2 2, 1,2) 

14 CUN T I Not 

CALL TLSLGT ( NPC I NT , MxNPT , NPORT , MXPORT, MACM,K I, 

1 M,RTl,KKPT2,K>«T3 t 

<- Art » Y tv f VuS, [ VU S , X , Y , L , C , C J ,£ FF, TH T A , AE PH 1 , R AT 1 0 , P EPH 1 , 

3 Yf'.MUO, i INPUT, LPTEPH) 

IMLPTcPt-.L J.O ) GO TO 18 

CALL 06PL07 ( HP AT , M , I S K I PP , 1 S I 2tP , T HT A , A t P H 1 , A 6 Y , Pt PH 1 ) 
GC TL «; 0 

18 wRITc l i,22<: ) LPTEPH 
20 CONTINUE 

WR! TL (6,208) 

.vRITt (6,21b) 
wR I T L ( 6 , 21 9 ) 

OU 24 i =1, NPOP T 
DC 24 J=1,NPCRT 
1 SCRP T=IVGS( I ) 

J SCRPT = 1 voS l J ) 

wRI Tt (i, 15 4) I SCRPT, I , JSCRPT, j,YMMhC( I , J) 

24 CONTINUE 

IKNPOM.LT. 1* GO TO 28 
rtPITtlv ,208) 

"KTt (6,222) l INPUT 
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2 3 IHKTV.EG.Oi GC TO 1 
f-MC -FMC + EMCU 
wRI T L (6 » 20 c ) 

! F{ FMC. LE. FMCF ) DC To 11 

GO Tu 1 

101 HJRMAT( 101 5,F5.0,3f 7.0 

103 FORMAT!215,2P1C.O) 

104 FORMAT !I5»2F10.C) 

108 FORMAT! 4012) 

151 FJF MAT! HI 7»F7.2,3F7.1) 

152 FORMAT! I 10t 2f 1 5.4 ) 

154 FORMAT! I 12»3l 7,2F16.8) 

200 FORMAT (110H ****************************************************** 


201 FORMAT ( 105H NPOINT MXNPT NPCRT MXPORT MAUM K[ KWRT1 KURT 

12 K rt R T 3 ISKIPP ISIZEP H PAT FMCO PMCD FMCF) 

202 FORMAT ( 11 OH 

1 ,/ ) 

2 04 FORMAT ( 1X,6HNPT IN= I 2, 3 X, 7h I START = 12*/) 

206 FORMAT! 1X,18HI DlVD ARRAY VALUES,/) 

208 FORMAT!/ i 

209 FORMAT l 1 3X » 1 BHLCCAT ION CF POINTS) 

210 F0RMAT15X, 35HPCINT X, CM. Y» CM.,/) 

211 FOR MAT! 5X, 10HF PEGUENCY=F7. 1,4H MHZ , / , 5 X , 1 1 H 4 A VEL ENGT F = F7. 2 , 4H CM.) 

218 FORMAT! 5 A , i 1 HS HC kT -C I k CU I T ADMITTANCE MATRIX,/) 

219 FORMAT! 5X,60H PCINT PORT POINT PORT G, MILL I MHOS 6, MI 

1LLI MHOS ) 

222 FORMAL 5X, dHZI NPuT= (Fife. 3, 1H,F16. 8»6HI CHMS,/) 

224 F0RMAT(5X,7HLPTLPH=I^, 14H FUR THIS CASE,/) 

END 


Subroutine TESLOT 


c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

( 

L 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUl INE TtSLCT l NPCI NT , MxNPT, NPGRT , MXPORT , MAQM, Kl , 

1 N rt RT 1 » K UP T 2 » K WR T 3 , 

2 Xrt,YR, V^$»I VGS,X,Y,U,C, CJ ,EPP,ThT A, A£PH1,RAT10,PEPH1, 

3 YMMriO, L INPUT, LPTtPH) 


* * * ** 
* 


* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


PURPOSE TO CALCULATE Tht RAUI AT ICN PATTERN and TC CALCULATE * 
THE SHORT CIRCUIT ADMITTANCE MATRIX OF AN ARRAY CF Tfc * 
SLOT ANTENNAS LCCATLU ON A PERFECTLY CONDUCTING * 

CYLINDER CF AkuiTRAKr CROSS SECTION * 

* 

INPUT DATA NPUINT =NUMbfc R CF POINTS DESCRIBING THE CYLINDER * 
MxNPT =M A a i MUM PERMISSIBLE NUMBER OF POINTS * 

NP CRT = NUMb Ek UF SLOT ANTENNAS IN THE ARRAY * 

MXPOP.T=MAA I MCM PERMISSIBLE NUMaER OF SLOT ANTENNAS * 
M A C M ■= 1 IF SHCRT CIRCUIT ADMITTANCE MATRIX IS TC BE * 
COMPUTE, 0 FOR NO COMPUTATIONS. MATRIX IS * 
ALrtAYS COMPUTED IF NP0RT=1, HOWEVER. * 

K I = NuMoc R OF R.AulATICN PATTERN POINTS TC BE COMPU- * 
TED/ PLOTTED PER CASE. FOR 5 DEG. INCREMENTS * 
SC T Kl=72+i, FOR 4 DEG. INCREMENTS SET K 1=90 + 1, * 
FOR 3 Lieu. INCREMENTS SET Kl =120 + 1, ETC. * 

KURT 1 = 1 FOR rt P I T E UU T CF ARRAY OF POINT LOCA T I ON $ * 

AND ARRAY OF SLOT ANTENNA LOCATIONS, * 

C FOR NO wKITEOUT * 

K uRT 2 = 1 rOR xR I TfcUU T OF RELATIVE RAC I AT ION PATTERN,* 

D Fur NU WKITEQUT * 
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c 

c 

c 

c 

c 

0 

c 

c 

c 


L 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

C 


* 

* 

* 

* 

* 

* 

* 

* 

* OUT PuT 

* 

* 

* 

* 

* 

* 

* 

<* 

* 

* 

it 

* 

* 

£ 


KURT 3 = 1 Fuk wR I TEOUT OF U6 RADIATION PATTERN, * 

: FOR NO wH.ITfcOUT * 

Xin = AR H A ¥ OF x-VALuES OF COORDINATES, WAVELENGTHS + 

Yw*ARP.AY UF r-VALUES OF COORDINATES, WAVELENGTHS * 

VoS=ARRAY QF VALUtS OF SLOT VOLTAGES * 

IVGS=AKRAY UF VALUES OF THE LOCATIONS (CORPESPON- * 
UiNo TO TFObt IN T HE X km AN 0 Yw ARRAYS ) OF ThE * 
SLOT VOLTAGES IN THE VGS ARRAY * 

+ 

U AT A THT A = ARK A Y CONTAINING TFE ANGULAR VALUES * 

(oEGREtS) FOR WHICH THE RADIATION FIELO IS * 
TO bE PLOTTED. THTM 11=0*, THT A I K I ) = 360. * 

A EPH1 = ARR AY OF MAGNITUDE VALUES (OB) COKR E SPOND I NG * 
TC ANGULAR VALUES IN TH T A ARRAY ♦ 

PATIO=ARRAY OF VALUES OF (E/EMAX) CORRESPONDING * 
TO ANGULAR VALUES IN THTA ARRAY * 

PEPH1 = ARR Ay Ur PHASE VALUES (DEGREES) * 

CORRESPONDING TO ANGULAR VALUES IN THTA * 

ARRAY * 

YMMHG= SHLRT CIRCUIT ADMITTANCE MATRIX, MIL L I MHOS * 
iINPUT=INPUT IMPEDANCE, OHMS (ONLY FCR NP0RT=1) * 
LPTePh=l INDICATES A RAUIATION FIELD PLCT FOR USE * 
In U6PL0T WAS COMPUTED, 0 INDICATES THERE * 
WAS NU kauIATEu FIELD, AND FENCE NO PLOT * 
* AS CCMPUTED * 

* 


* X, Y ,o t C#C JitPP ARE ARhAYS LStU FOR INTERMEDIATE CALCULATIONS * 

* # 

* RESTRICTIONS IN CALLING PROGRAM, VG S , C , C J , EP P , YMMHC, AN U 21NPUT* 

* MOST u E TrPLo COMPLEX. ARRAYS X W , Y w , X , Y » D , E PP , * 

* ANU CJ Must bE DIMENSIONED wITH THE VALUE OF * 

* MXPNT ANU C MUST BE DIMENSIONED AS C ( MXPNT, MXPNT ) * 

* IN CALLING PROGRAM. ARRAYS VGS AND IVGS MUST * 


* BE UlMENSIONEu * I T H THE VALUE OF MaPORT AND YMMHO* 

* MUST BE ul MENS ION ED AS YMMHC ( MxPCRT , MXPORT ) IN * 

* CALLING PROGRAM. FOR PLOT PURPOSES, ARR4 Y$ THTA,* 

* AEPHl, RATIO, AND PEPH1 MUST BE DIMENSIONED AT * 

* LEAST AS LARGE AS THE VALUE (Kl+2) IN CALLING * 



COMPLEX VGS , YMMHO, CJ»C»EPP,C«*T ,tPS,2lNPCT 

COMPLEX Pll,P12,Cll,ul2,g21,^2 f EP1,EP2 

DIMENSION X(l) v Y(l)fD(li, VGS (1),IVGS(1),C(MXNPT,1), 

1 CJ ( 1) , YMMH0(MXPCRT,1) ,EPP a) * At PHI (II , R AT 1 0 ( 1 ) ,PEPH1(L), 

2 THT A ( I), XW( I I , YM I) 

N=NPOINT 

I DM=MXNPT 
1 NT=I 0 
C MAX= 1. E-l 2 
SgT 2= SJRT ( 2 • ) 

PI =3. 1415S265356S793 
TP=2. *P1 
RlN=P 1/180. 

ETA*3 76. 72 7 

CDT=-2. *SUT2/( ET A* ( 1 . , I . ) ) 

ZINPUT=CMPLX(0.»C. ) 

DO 20 1=1, N 
IPM+1 

IFd.ED.NI IP=1 
Ua=XW(IP)-XMI I 
UY= YW l 1 PJ-YWI I ) 

D ( I }=SgRT(OX*UX + UY*OY) 
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20 CONTINUE 

!HK«RT1.EG*0) GO TO a04 
*RITE16,601) 

WRITfcI6»70I » N 
fa til TE (6,601) 

WRITE (6,702) 

WRITE (6,703) 
wRITb(6,601) 

00 804 1*1, N 

00 801 J=1,NFGRT 

1 SC RP T = 1 VG S ( J) 

I F ( I SC KPT • Eg • I ) GO TC 6u2 

801 CONTI NUE 

WRI Tt ( 6, 603 ) ItXtal I ) «Y m11) »U< I ) 

GO TU 803 

802 WRITE (6,6 04) I , X fa ( I ) , Y w ( I ) , 0 1 1 ) , VGS( J ) 

803 IF ( I. LT.N) GG TO 804 
wR I T t ( 5 , 601 ) 

804 CONTINUE 

00 22 1 = 1, N 
A ( I ) =TP*Xfa ( I ) 
y ( I ) = Tf *yn( I > 

UU )= TP *G( I ) 

22 CONTINUE 

00 25 1 = 1* NP UR T 
DC 25 J = 1 , NPUK T 
VMMHOI I , J) = (0, , 0. ) 

25 CONTINUE 

UO 100 1=1* N 
00 100 J = 1 * N 
C ( I » J I = < • 0 , * 0 ) 

100 CONTINUE 

00 150 I =1 * N 

CALL SHMHUl I ) ,PU*P12) 

C( I , I )=C( I, I )+Pil 
J = I +1 

IF( I. Eu.N) J=1 
CtJ ,J # = C I J* J) +P11 
Cl I,Ji = C(I ,JH-P12 
C( J,I )=C( J, I M-P12 
150 CONTINUE 

00 200 I =1 * N 
M = I 

1 M = I - 1 

I F ( I • tw • 1 ) IM=N 
IP=U1 

IF( I, t J.N) I P=1 
0 I = U ( I ) 

U M= U ( I M ) 

CALL Srt M2 ( X ( IM),Y( I M i » X t I J , V ( I ) » X ( I P ) , Y U P ) » CM » Cl 
2 I NT * j 11 ,012, u2 1,022) 

ClI ,1 )=C( i ,1 I + 1 

C (l M, I ) =C( IM, I ) + gll 
C( IM, IP ) =C ( I p, I P ) ♦ w 1 2 
C( I , IP ) =C( I, IP ) + u22 
0K= ( uM + DI i / 2. 

00U=1 00.*A8S( UI-LM)/UK 
I F ( Uuu* LT« 3. IGC TG i&O 

CALL 2 MM 2 IX(IP)»Y(IPJ»xm,Ym,X( IM ) , 1 < I M ) , D I , DM 
2 I NT , Oil, 012, 02 1, 02 2) 

160 CONTINUE 

C ( I , I ) =C( I, I ) +-Q21 
Oil , IM) =C< I , IM )*w22 
C ( I P, I >=C( IP, I H-Lll 

C( IP, IM) =C( IP, IM) + wli 
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209 CONTINUE 

If { N. LT. 4) GU TO 2 oO 
NI=N-I 
N 2 = N- 2 
N 4= N-4 

00 250 J = 1 ? N 1 

1 =J-i 

IHJ. Ey. 1J I =N 
1-1 = 1 
01 = 01 I ) 

X1=X( I ) 
yi=v 1 1 i 
X2=X< J) 
v 2= r ( J) 

KA=J+1 

Kb=KA+N4 

00 240 K =K A * K.0 

1 F ( K. GT.NICJ TO 240 
FK= K 

Ol\ = U( K) 

X 2- X t K J 
Y 3 = Y ( K } 

L=K+1 

I f l K* EU. N) L = 1 
X4 = X ( LI 
Y4=Y< LI 

CALL SMM31 Xl f Yi > X2»Y2»X3,Y3»X4tlf4»0If0KtCll»012tU21fCj2 2l 
C ( I , K I=c ( I t K)+C11 
C ( J,L ) = c U,LH-C22 
CU »L)=CiI,LI+wl2 
C( J ,K ) = C< J,K)+y2i 
240 CONTINUE 
250 CONTINUE 
260 CONTINUE 

klcrt=c 

I M lMAuM.Ew.0) .CR. (NP0RT. feu.il ) GO TC 268 
NAD = 1 

00 283 J JX = 1 * N PC FT 
KLC RT = KLCRT + 1 

1 SCRP T- I VGS ( J J X ) 

UO 265 I =1 »N 

CJ{ I I - ( 0* » 0* 1 
265 CONTINUE 

CJ( ISCRPT)=*-VGS(JJXI 
GO TO 275 
268 NAO= 0 

KLC RT = X LCRT *• 1 
00 27 1 I si t « 

CJU l = (0. ,0. I 
271 CONTINUE 

00 274 I =1 » NPORT 

1 SC RPT= I VGS { I I 

CJ( I SC K PT J = - VG S ( I ) 

274 CONTINUE 

275 I F ( KL CRT* GT . 1 ) GC TO 277 
CALL CR0UT1 (C»CJ ,N, IQM,0,0 I 
GO TO 280 

277 CALL CRCUT2IC, Cj*N f ION, 0,01 
280 If(NAD.Eu.O) GO TO 286 
UO 283 JJY=l f NPCRT 
JSCRP T= I VGSl JJ Y J 

TMMHOI JJY, JJX) =10CQ.+iCJ ( JSCHPTI/VGSI I SCRPT ) J 
283 CONTINUE 
GO TO 268 

206 IF! NPORT. GT.1I GO TO 289 

YMN HU ( 1 r 1) =1C00. *( CJ ( I SCRPT I /VGS ( I SCRPT ) ) 

Z I N P U T = C MP L X ( lOCC.fO. J / YtfMHC 1 1 » 1 1 


0104 

0105 
C106 

0107 

0108 
CL 09 
3110 
0111 
0112 

0113 

0114 
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289 CONTINUE 
KIM=KI-1 

DPH=360./PL0AT <KIM> 

AEPHM X = G. 

UO 390 NPH=1,KI 

FPH=NPH-1 C129 

PHS=UPH*FPH 0130 

THT A I NP H J = PHS 

PHR = . 01 745 3 3*P H S 0131 

CPH=COS(PHR) 31 32 

SPH=SIN(PHR) 0133 

DU 300 I -1 » N 013A 

fcPP ( I )M.O#*OI 0135 

3 CO CONTINUE 0136 

DO 350 1=1, N 3137 

X A= X I I ) 0138 


y a= y ( 1 > 

1 p = 1 + 1 

IF ( I. Lw.N) I P = 1 
Xri= A ( IP ) 

YB=Y( IP J 
00= 0 { I ) 

CALL CFF UA, YA,aE, Y b , lu ,CPP » SPH, EP 1,EP2 ) 
fcPPI I J = EPP ( 1 )*EP1 
EPP l IP) = f P P ( 1 P I + EP2 
350 CONTINUE 

E P S= l • u » • 0 ) 

JU 334 1=1, N 
tPS=tPS + CJ( I ) * EPP( I J 
384 CONTINUE 

tPAb=CAbSI EPS) 

IF(EPAri.GE.AEPHMX) AEPHMX=EFAri 
At P HI ( N PH ) = E P A ri 
KEP$=REAL( EPS) 

XEP5=Al MAGI EPS 1 
I F 1 EP Art, Lt. CPA X I GO TC 335 
PEPHl (MPH) -ATAN21 AEPS, REPS i/ PON 
GC TU 387 
285 Pt'PH'i ( NPH I =0, 

387 CONTINUE 

I M K WRT 2. EU. 0 ) GO TO 350 
I F ( NP H*G T . 1 J GO TO 36b 
wRITEI5,fc01) 
wRI Tt t 6,710) 
wRI r t (6,601) 
wRI TE 16,711) 

*RI TEI 6,601 ) 

388 WRI Tt( c , f> 0 5 ) THTA I NPH)-,KEP SrXEPS ,EPA8,PEPHl (NPH ) 
If I NPH.LT.KI ) GO TU 290 

aRI TL I t,fc01) 

390 CONTINUE 
L P T fcP H= 1 

If ( AEPMMx.LEeCPAX) GU TO 425 
UO 424 KL=1,KI 
AEPH2 = AEPH1 ( XL ) 

ALPH=AE PH2/4EPH,MX 
RATI J(xU = ALPH 
If (ALPH.LE.CMAX) GO TC 423 
ALPHDB = 2Co * ALGO 10 ( alp hi 
IFIALPHC 8.LE.-4C.) GO TO 423 
AtPHl I X L ) = A LPHC8 
GO TO 424 

423 AEPHi t xL ) = -40. 

424 CONTINUE 
GO TO 426 
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425 LPTEPH-0 

42 6 CONTINUE 

IFlLPTEPFoEQ.O I GO TU 475 
IMKwRT3. LU.CJ GO TO 4E5 
WRITE(o»601) 

WRITE ( 6, 71 M 
*RT T £ C 6*601 ) 

«RI TE(6#7H ) 

WRITE ( 5 ,601 ) 

JG 430 KL*1,KI 

wRITL{6,60b) THTAt XL I, AEPHKkL ) , P ATI (llKU » PEPH1! KL) 

I F ( KL. IT. K I ) GC TO 42C 
WRITE (6,602 J 
430 CONTINUE 
RETURN 

475 wRI Tt (6 , 718) AEPHMX 
486 CONTINUE 
R E T UK N 

601 FUR MAT I / ) 

602 FORMAT!//) 

603 FDR MAT ( I9,3F11.4) 

604 FORMAT ( I 9, 3F 1 1. 4 , F 20. 4 ,F 1 5 .4 ) 

605 FORMATl F 14 . 1 , 3 E 1 5. 6, F15.2) 

608 FORMAT (F14* 1»2F15.6»F 15*2) 

701 FORMAT ( 5X,41HNUMBER OF POINTS DESCRIBING THE C YL I NO ER = I 3 > 

702 FORMATl 5X» 37HGECMETR Y CF CtLlNUKlCAL CPCSS S E CT I QN, 9X , 22h DR l V ING P 
1 C I NT VOLTAoES) 

703 F0RMAT{4X,38HP0INT X, wvL. Y, WVL. U, WVL.,5X,30H RE!V) 
1, VOLTS 1 M ( V ) , VOLTS) 

710 FORMAT! 5X,29FRAL'IATICN PATTERN (RELATIVE)) 

711 FORMAT ( 5X, 9HPHI, DEG. , b A, 7HR E ( t PH ), 8X ,7H I M ! EPH ), 7X , 8HMAG ( EPH ), 4 X , 

1 11HPHASE, OEG.) 

714 FORMAT l 5X, 35HRAU1AT ION PATTEKN ( DB AND E/EMAX)) 

715 FORMAT !5X,5HPH I, UE G. , 7X , 8 F E PH, UB . , 9X , 6H E/ EM AX , 4 X , 

2 11HPHASE, DEG.) 

71b FORMAT ( 5X,7HAEPHMX=E15.8,34FI, THUS, NO CB VALUES WERE COMPUTED) 

END 


Subroutine SPLFIT 

SUBRUUT INt SPLFIT t MA XP , M Ax CO , NPT I N , I ST AP T , P NT I N, 1 U I VO, 

1 ELEN,COEF, SPNT I N , XPNT , Y PNT , A PCI NT , X W , Y W ) 

DIMENSION PNTIN IMAXP , 2 J , SPNT INIMAXP, 2 ) ,CCE F (MAXCO ,4, 2 ) , 
1 EL£N(l),IUlVOll)» XPNT (1) , YPNTl 1 J ,XW(1 ) , YW ( 1 ) 
NSEG=NPTIN-L 
DO 10 I=1,NPTIN 
K=( 1ST ART— 1 ) +1 
IFIK. LE.NPT IN) GO TO 9 
N = IISTART-NPT IN) + 1 
9 SPNTI Nil ,1) =PNT IN ( K, 1 ) 

SPNTINl 1,2 ) *PNT I M K , 2 ) 

10 CONTINUE 

CALL SPFIT2 ( M A XP , MA XC C , NPT IN, SPNT IN*COEF, ELEN) 

I V = 1 

DO 17 I = 1, NSEG 
I VK={ I START-1) +1 
I F l IVK. LE.NS6G ) GO TD 14 
I VK=( I ST ART-NS EC ) +1-1 
14 I CV = I 01 VDl IVK) 

DO 17 J = L, I 0 V 
J M 1 = J — 1 

T = l FLOAT { J Ml )/ FLOAT! IOV) >*ELEN(I ) 

T 2= T* T 
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T3=T*T2 

XPNTl I V )=T3*C0EF n»l,lJ + T2*CCtF(I»2» 1)+T*C0EF l I, 3, U+COEF (1,4,1) 
YPNTt IVI=T3*CUEF( I , 1, 2 ) + T 2 *C CtF t I » 2 , 2 ) +T*COEF ( I,3»2J+COEF ( I r4,2) 
I v= I V+l 
17 CONTINUE 
NPO IN T = I V- 1 
LxX = I START- 1 
LXSUM=0 
00 19 1=1, LAX 
LXSLM=LXSUM+IQIVC( I > 

19 CONTINUE 

DO 22 1 = 1, NPOI NT 
J = LXS UM + I 

IF( J. GT.NPGINT ) J=J-NPCiNT 
XW( J )=XPNT( I > 

Yw(J)=YPNT( I I 
22 CONTINUE 
RETURN 
END 


Subroutine SPFIT2 


SU6RUUT INE SPF IT2 ( MAaP,MAXCC,N»PNT »C0EF,fcLtN ) 

C 

c this subroutine computes TFt parametric cuaic spline coefficients 

C TO APPROXIMATE A SMOOTH CURVE THROUGH A 20 SET OF POINTS PNT(I,1) 

C AND PNT(I|2)f THE ARC LENGTH ELENII) IS APPROXIMATED TO BE 

C THE EuCLIULAN DISTANCE oETwEEN CONSECUTIVE POINTS 

C 

c m aap =ma x* number of input points allowed 

MAACU=MAX. NUMBER CF SPLINES ALLOWED 
N=ACT UAL NUMBER OF INPUT PCINTS 

EXAMPL E-SUPPOS E 20 PUINTS TU rit INPUT, CALLING PROGRAM HAS FOLLOWING 
DIMENSION PNT 150,2) ,CUEF(SO, A, 21 ,ELEN( C C) 

THEN N = 2 0 » M A X P = 5 0 , MAXCC=SO 

DIMENSION PNT(MAXP,2),C0cF ( MAXCU, 4 , 2 ) , ELEN ( 1 1 
NUNE= 1 
N1=N-W0NE 
T *0 = 2* 

UNE=1 o 
T HR EE =3 • 

C 

UO ID I = 1, N 1 
I P= H-NDNE 

X 1 - PN T ( IP, 1 ) -P NT ( I , It 
Yl=PNT( IP,2»-PNT( 1,2 J 
Et 1 = a l*Al+r 1*Y 1 
ELENI I )=SU*T {ELI ) 

ID CUNTINUE 
C 

C FORM A-MA T RIX, SUPER uIAGa ELcMtNTS ARE IN C'JEF(I»4»1), SUB UIAG« 

C ELcMtNTS IN C0EFII,2,1)» UIAb* ELEMENTS IN CJEF(I,1,1), ELEMENTS 

C CF COLUMN VECTOR FOR X EwUATIuN IN C0EF(I,3 r l) AND Y EQUATION IN 

0 CCEF(I,3,2) 

C 

COE F ( 1,2,1 ) = 0. 

C(?EF{ 1,1,1) =T*C 
CLEF! 1,4,1 )=0N£ 

CU EF I N, 2 , 1 ) - CN t 
CUEF( N,4,l )=Q. 

CGEF { N, 1 , 1 » =TwO 
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c 

c 

c 

c 

c 

L 

C 


C 

t 

c 

c 

c 


c 

c 

c 

c 


Xl=THRtfc/tLEN( I ) 

Yl=THRtE/ELEN(Nl) 

COE Ft 1,3,1 )=X1 *(FNT(2, 1J-PNT (1,1) ) 

CUt F l 1»3,2)=X1*(FNT(2,2)-PNT ii ,2) I 
CUE ft IS, 3,1 )»V1*(FNT(N| 1)-PM INI, 1 ) ) 

CUEMN, 3 » 2 ) *V 1 * I F i\ T { N , 2 ) -PM l<u, 2 ) ) 

CO 20 I - <: * N 1 
I M= I -NONE 
1 P- I + NCNE 

Cut F ( 1,2,1 )=ELEM I ) 

CUE Ft [, 1,1 )=TwO* ( tLEM I )+tLEMIM) ) 

CUtft 1,4,1) = EL EN t I M ) 

Xl= T HRbE/(LLtN(l )*ELEN ( IM) ) 

X 2 = tL tN ( IM)*ELENt IP ) 

X i - tL EN t I ) *ELEN( 1 ) 

COt Ft I,3,l)«Xl*tA2*lPNT(IP,l J-PNT (1,11 )*X3*(PNT( 1,1) -PNT ( IM, 1) ) ) 
COEFt 1,3,2 )sXlMX2MPNTl IP,2)-PNT( 1,2) ) + X3*< PNT ( I , 2 ) -PNT ( IM, 2 I)) 

20 CONTINUE 

TH £ A-MATRIX IS TRIUI AGONAL, the A-MATRIX hILL BE DECOMPOSED INTO 
AN UP PEP L I A Cm. MATRIa U AND A LOWER Dl AG, MATRIX L SUCH THAT LU*A 
THE UECOMPOS IT ICN Of A I NT C L AND U DOES NOT DEPEND CN Q 
A VECTOR L FOP EACH X AisU Y EgUATION to I EL BE COMPUTED SUCH THAT 
LA=a, L FOR X IN C0cHtI,j,i) ANu FOR Y IN COEF(I,2,2» 

CUtft 1, 3 ,1 ) = CuEF U, 3,1 >/ Cutft 1,1, 1 > 

COt ft l,3»2)*COEf(l,3,2)/CUtf (1,1,1 ) 

COtf t 1,1,2 ) = C OEf (1,1,1 ) 

UO 50 I-2,N 
! I-NUNt 

CGcft 1,2, 2)*C0EF( 1,2,1 I 

COEr ( IM ,4, 2 ) =COfcF ( IM, A, 1 ) /CCtF ( JM, 1,2 ) 

COt Ft l , 1,2 )=COEf ( 1 , 1, 1 )-Cutf (IM,4,2)*C0EF (1,2,2) 

CCtft I, 3,1 ) = ( C C E F ( I ,3, l)-CCcMI,2,2)*CUEF{ 1 M , 3 , 1 ) ) / CGEFt I , 1,2 ) 

CCcFl I , 3 ,2 )= (CGEF ( l,3,i)-CCtfU,2,2)*CCfcF(IM r 3,2) ) /COEF ( I ,1,2) 

50 CONTINUE 

COMPUTE VECTOR P BY BACK. SUBSTITUTION WHERE UR = Z R IN CGEFt I, 3,1) 
FUR X AND IN COtf tl, 3, 2) fCR Y THE R VECTOR IS THE FINAL 

SOLUTION VECTOR FOR THE SLLFcS 

DU 60 1=1, N1 
N N = N - I 

CGt Ft NN, 3 , 1 ) =C OfcF ( NN, 3 , 1 ) - CUEF INN , 4 , 2 ) *COEF ( NN+ 1 , 3 , 1 ) 
Cutf(NN,3,2)=CCEFtNN,3,2)-CUErtNN,4,2)*CDEF(NN*l,3f2) 

SO CONTINUE 

COMPETE CUBIC CCEfflCIENTS FOR I-TH SEGMENT- X EU« IS 

X(T J-COEf l I , 1, 1 )*T**i+Cufcf (I, 2,1)*T**2 *COEF (1,3,1 )*T+COEF (1,4,1) 

DO 70 I - i , N 1 
ELI = ONE / ELEN ( I ) 
t L2 =E Li * t LI 
L L 3 s l. L 2* ELI 
I P= I NON E 

XI = PNT( I ,1 )-PNT{ IP ,1) 

Yl = PNT( 1,2 ) - P NT t IP, 2) 

COEF t I , 1 ,1 ) =TwC*EL3*Xl+tL2« ICOtF ( 1,3,1 J+CGEF t IP, 3,1 ) ) 

COEFt I, 1»2 )=TaU*EL3*Y1*lL 2M COtf t I ,3,2 ) +CQEF t IP, 3, 2) ) 

CUE r t 1,2,1. ) = THkE E *E Li* (-X 1 ) - cL 1* ( T VvG*C OE F t 1,3,1 J+COEf ( IP, 3, 1) ) 

COEFt I|2,2)=THW.tt*ELfcM-Yi » - tL i* ( T wO*CC E F ( I, 3,2 ) +COt F t IP, 3,2) ) 

COt F ( 1,4,1) =PNT t 1,1) 

COEFt 1,4,2 ) = PNT t I ,i) 

70 CONTINUt 
RETURN 
E (vU 
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Subroutine CVRTV 


SUbRQUT INc CVRTV(KPTIN,NPCRT, JVGS, I 01 VC, IVGS ) 
DIMENSION JVGS (1 > , I VLS 11), luIVLil 1 ) 

N St G= NP T I N— 1 
I Sum = i 

DO 8 I*1 # NSEG 
DC 6 J= 1 , N PORT 
J VG = J VG S ( J J 
IM JVC. EQ. 1) GC TO 4 
GO TO 6 

4 I Vo St J ) = I SUM 
J=NPDRT 
6 CONTINUE 

I SUM* ISUM+IUIVC( I ) 

6 CONTINUE 
RETURN 
END 


Subroutine CROUT1 


SUB ROUT I Nt CROUT1I Cl St Nf I uM , IS »M, I * ft ) 

C SET ISYM = 0 It MATRIX IS SYMMETRIC 

C SET IwRsQ OR NEGATIVE TU AVOID rtRITECU T 

COMPLEX CllDMf I DM ) , S l I CM ) 

COMPt Ex SS 
COMPLEX P»G»H»P»T»U 

E OR MAT ( lx, 11 10 , It 15. 5, IF 15. C,it A 5. A > 

FUE M AT ( lhO » 

IF (N. tg. II S (1) =$1 1 l/C( It 1J 
IFIN.EU. II GO TL 100 
I E ( ISTM.NE.0JGC TO 3 
CO 6 I = 1 ", N 
DO 6 J- I |N 
CtJ,I I-CII,JI 
6 CONTINUE 
B CONTINUE 
F=C (1,1 ) 

UO 10 L = 2,.N 
G -C ( i i L ) 

10 C (ltL l = G/F 
DO 20 L=2,N 
LLL =L - 1 
DU 20 I*L,N 
F=C ( I i L ) 

DO 11 K*l, LLL 
G ®C t 1 1 K J 
H =C ( K i L ) 

11 F =F “G 
C (I ,L ) =F 

If ( L„ to. I) GO TO 20 
P =C f L , L J 

IFl ISYM.tO.0IGC TO 15 
F -C t L , I ) 
on 12 iv = 1 1 L l L 
G =C t L, K) 

H*C(lt| I ) 
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1 Z h =F"’iJ *M 

CtL, I 1 = P/P 
GO TU 2 0 
15 F=C ( I »l » 

C l l » I ) »F/P 

20 CONTINUE 

CO 30 L = 1 f N 
P=Cl L, L ) 

T = S(L > 

I F l L. Ew ■ i ) uU T 0 20 

LLL=l-l 

Oi'j 2 3 K=l t LlL 

l-=C(L »KJ 

U = S(K » 

25 T=T-h*J 
30 S(U=T/P 

00 33 L - 2« N 

1 = N - l + 1 
11 = 1*1 

T = S ( I l 

on 30 K = ! I » N 
h=C ( I , Ki 
U-S IK) 

3 *5 T = T - r * 0 
36 S m= T 

IFlIrtR.EE.O] G f TO 50 
C NO K ~ 0 0 
U 0 00 I = 1 » N 
SS=SM ) 

S A=CA6S ( SS I 
IM SA.GT.CNOP i CNCR=SA 
AO CONTINUE 

0 U A “r 1 - 1 » N 
S S= S ( I > 

S A=CAob ( SS ) 

S NOR= . 0 

IMCNOR.GT.O. I SNL R = SA/ C NCR 
SK= Kt AL l SS i 
S I = A l MAG (SS) 

P H = . 0 

iMSA.oT.Oo)PH = C7.Z957o*ATAi^Ul,SRI 
wRITE(6,2>IiSNGP,PF,SRrSI 
A A CONTINUE 

wPITE to ,5 } 

50 CONTINUE 
100 CONTINUE 
RETURN 
ENJ 


Subroutine C ROUT 2 


SOU ROUT 1 NE Cn.GuT2(C|b»Nf IbM, ISYM, I RR> 

C SET ISYM = C IF MATRIa IS SYMMETRIC 

C SET IaA = 0 OR NEGATIVE Tu AvOiU wPlTEOUT 

CGMPl la ClIUM,IuM,S(IoM} 

COMPLEX SS 
COMPLEX FybfHyPfTfU 

2 FORMAT l IX, 1 1 10,1 Fl 5.2 , i F 1 5 • 0 , 2 El 5. A ) 
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5 FORMAT < 1 HO > 

DC AO L = 1 » N 
P=C< L. L J 
T =S ( L I 

IF(L. tw*liGO TO 20 
ULL=L- L 
Uu 25 K= W LLL 
F=C(L»k) 

U = S IK i 
2 i> T = T - F * U 
30 S(LJ=.T/P 

L)u 3d L = 2 » N 
I -N-L + i 
11*1+1 
T — 3 t I i 

DO 35 is = 1 1 t N 
i-*C( I « ft) 

U = S IK i 
3 C T=T-F*U 
36 S II) = T 

I Ft IxF.„ L£* 0 ) bC TU 20 

CN'JR=, J 

OJ 'id I = 1 » N 

SS= S t I J 

b A= CAriS ( SS ) 

I F t SA« oT oCNOR I CNCR=SA 
VO CCNT I Nut 

o.) ->A I = 1 » N 
5 S = S t I » 

S A= C A bS l SS > 

S N'J R= . 0 

IFtCNGR*GT«,U* I $NQR=SA/CNCJR. 

SR=RE4L( SS ) 

SI=AIMAG(SS ) 

Ph=*0 

IFt SA.CT.O. >PFi = 57. 29576* AT AN2< SI i S P. J 
nRITE ( 6f 2) I» SNCP, PH, SKtSI 
't'i CuimTINUE 
* K I Tt lu » 5) 

60 CONTINUE 
100 CONTINUE 
F ET URN 
END 


Subroutine SMM1 


SUbKOUTlNt SMMltOKfZMllt ZM12 J 
COMPLEX ZMli,2M2 
CCMPLEa HO»Hl 
CAT A PI/3ol41~S/ 

C UK =CQS ( UK ) 
bUN= S [ i'l ( L/K I 
CALL HAK< ( UK#HC ♦ hi ) 

S UK S=SJK**2 
CukS=CGK**2 

*Hl*CUft-hC*SJK-2« *1 .0 » U ) * l U fCUKE ) /PI /UK 
ZM12*H:*COK*SJK-Hl*(l,+Cuxi>+9«*l ,C t 1. )+CUft/Pl/DK 
ZM 11=15* * uft* 2 M 1 1 / S UK S 
ZMl 2 = 1; • *ux*ZM 1 ^/SlKS 
R i T JR .\i 
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Subroutine SMM2 


S Ud P J UT I N t SHM2(Xl,YjL»X2,Yi.,x3»V3» DK 1 f UK 2 i INT » S L 1 ,Sl2,$21,S2c) 

CuHPL Ca Sx 1 , Sa 2 

COMP L t: a S11,S12»S21»S2<l 

COMPLEX 0 1 1 1 01 2 * G2 i t o2 2 

CCMPLLa HC-jHI, hKCf HHi 

CUMPLtX M3) 

COM PL E.A AA ( 11 r £ I ,&A( 11,5 ) »CMii»3 ) ,ZA( 11, 12) 

C CM PL t X AD(li»5),bd(iL#5j»C6(H,3l ,26(11, 131 
COMPLEX AC ( 11, 5) , tlC U 1,5 ) ,CC( 11, 2) , ZC ( 11, 13) 

COMPLEX AM 11, £) ,BU(ll,:i ,CU(li., 3) ,ZU( 11, 12) 

twUl VALENCE {ZA(l,l),AAii,lM,UA(l,C>,eA(l,l)),(2A(l,U»,CA{l,in 
ALfc'vICt t It* t 1,1 ), Ad II, 1) ), <Z8< 1,6 ) ,Bt <1,1 ) ) , ( ZB * 1, 11 J ,Ch( 1,1 ) ) 
tOUl VALENCE l Z C I 1, 1 ) , AC (1,11 J , < 2C ( 1,6) , BC I 1 , 1 ) ) , < ZC 11,11) ,CC( 1, 1 > J 
fcjOl VALENCE (ZD(l,l),AU{l f Ui,UI>(l,fc),BUIl,ll)r(ZD(l,li),CU(l,m 
DATA Pl/3.14159/ 


DATA o,H/. 314155,. 261744/ 
l)ATA A A / 


( 0.0 , 

0.0 J , 

( c. c 

(0.0 , 

0. C ) , 

(0.0 

(0.0 , 

O.C ) , 

( J. c 

(0*0 , 

C * C ) , 

( c.c 

( -0 • JCO 1 67 , 

-0. GC520 9 ) , 

( - 0. C01^05( 

( - J • 0083 87 , 

-0. 017790) , 

( — 0* 00 5^ 43 

( — Oj u 129 32, 

-C.C16578) , 

(-U. C12971 

(-3. 31c 041 , 

-0.007672 ) , 

( O.C 

( — -j 9 0 0 -*■ 5 0 8 , 

-C. 040586) , 

( — C . G 1 2 62 7 

( -0.0 O5087, 

-0. C 7 3080 ) , 

( -0 . 04 8444-1 

1-0. 052534, 
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( - 

O.Ub29LB,- 

0.090514 ) , l- 

C . iiiCll^, — C.C76C6C) , ( 

0.0 » 0 • ), 

l 

0.003712, 

0. C 5 6644 ) , i 

0«C£fc082, 0. L15C4 0), ! 

0.070396, 0.146811), 

{ 

0. i 19825, 

0. 133934 ) , t 

C. 146662, C. 074822) ,! 

C. 125376,-0. C10454) , 

{ 

0. 066 115 ,- 

0, 09C716) , l- 

0. C^.4034, — C. 1 4 6 6 2 ) , ( 

-0. 112498,-0. 153109) , 

\ - 

-J.1769c6 ,- 

C. 1350*9) / 



CAT A Bu/ 





0. 0 , 

0. 0 1,1 

0.064628, C.C82184) ,( 

0.032749, 0.161505), 


0. J0952O, 

0. 2CS794) , ( 

j. 135540, C»20C7C6),( 

0.156878, 0.129381), 


0 • 1 84 9 09 , 

0. C17794) , ( 

G. 1133 uOt-O. C9615 1 ) , ( 

0.0016*9,-0. 17S238) , 

( - 

•0.1 15658,- 

0. 214174 ) , l- 

0.208911,-0.212054), < 

D.C ,0.0 ) , 


O.u 0497^, 

0.- 102073), ( 

C. 035451, C. 202291),! 

0.058233, 0*267494), 


0. 1 7*1-442 , 

C. 268419) , ( 

0.228664, C. 196367),! 

0.228406, 0.071031), 


0. 162553,- 

C. C68660J , ( 

0*04u529,-C.1836Cc),( 

-0.085334,-0. 231922 ) , 

\ _ 

■0. 200 2 30,- 

0.274517), l 

0. C ,0.0 ) » ( 

0.CC463 0, 0. 117229) , 


j. 0 334 06 , 

C. 230289 ) , l 

U.CS303J, 0.309461),! 

0.170260, 0.324651), 


0.2 3C890, 

0. 26 4 202) , l 

C.2443uy, C.142450) , t 

0. 195043,-0.006541 ) , 


j.09< 614,- 

0. 144 62 5 > , t- 

C. 031874,-C. 245375) , ( 

-C. 131456,-0. 301724) , 


0.0 , 

u • 0 ) , t 

J. 005747, C. 122169) , t 

0.C271C3, 0.235244) , 


0.Q77G90, 

0. 32566 9 ) , ( 

J. 14^o?7, C.355C5C) » ! 

0.199560, 0.314087), 


0. 221934, 

0. 213275 ) , l 

0. 1951 94, 0.075462), ( 

C. 122278,-0.066907) , 


0.021307,- 

0. 188174) , l- 

■0. 065294,-0.27497 1 ) , ( 

0 . C ,0.0 ) , 


0. 002503, 

0. 115253) , ( 

0 • C 1 1 2 1 3„, C. 2244671,1 

O.C52364, 0.306184), 


J . U9o 5 84 , 

0. 34640b) , l 

0. 141473, C. 32625 3 ), ( 

0.1 63007, 0.256767), 


j . 1 54 3 92 , 

0. 147472) , ! 

0. 1125 75, C. C221T 1) , l 

0. 047622,-0.098570 , 

( 

-0. 0 25933,- 

C.2CC279)/ 



OAT A CD/ 




( 

0.0 , 

o 

« 

O 

0. 00 1253 , 0.094692), ( 

0.009162, 0.183C15), 

l 

0. 026560, 

0. 252210) , 1 

0,050653, 0.285695),! 

0.074115, 0.207980, 

l 

0. 0B8393, 

0,247268), l 

0.C87403, 0.175C67),! 

0.C698C7, 0.083426), 

l 

0. 038988,- 

•0.014601) , ( 

0. GO 11 90, -0. 107643) , ( 

0.0 ,0*0 ), 

l 

0.0 0 J 336, 

C. 058756) , l 

0.002464, 0.112516),! 

0.007181, 0.154899), 

t 

0.013 8C6 , 

0. i BC 1 1 1 ) , ( 

U 02 0446, C. 13472C ),( 

C.C24325, O.L60OC7), 

( 

0.025253, 

0. 132455), l 

6. C 2 1 1 89 , 0.082759 ) , ! 

0.013315, 0.024850), 

l 

O.OOiOdt,- 

-0.036047) , ( 

O.L ,0.0 ) , ( 

0.0 ,0.0 J, 

l 

0.0 , 

0. 0 ) , 1 

0. C ,0.0 ),( 

O.C ,0.0 ) , 

! 

0.0 1 

u . 0 J , ( 

0. C , 0. 0 ) , < 

0.0 ,0.0 ), 

l 

•0. o , 

0.0 ) , l 

u. C ,0.0 ),! 

0.0 , O.C )/ 

0KM=UK1 





IH L)K2. GT.UK1 ) CKM=D*2 
I r ( UKM.LT. 3. >GC TO 10 
Sil-(.Oy.O) 

S 12 = ( • 0 » • 0 ) 

S2i = !.0».Q) 

S22-!.0,«C) 

R t T U k N 

CONTI NO E 

UK - ( UKi*l)K2 )/2 . 

P0=1 JO. * ABS ( 0K2-CM > /OK 
IF(P0.LT«3. >GU TO 42 

CALL ZMM2{Xl,>l,X2,Y2»*3,Y3tOM,UK2,IM,Sll,S12,S21»S2 2) 
HLTURN 

continue 

DKS = oKi < r 0K2 



APPENDIX A - Continued 


CUK = CUS ( 1)K| 

SUN = S IN ( DiO 

SUKS=SUK**2 

CCKS=C0K**2 

C rtt T - ( A 2-A 1 ) /UK 1 

S BtT = ( Y2-Y 1 ) /OKI 

xb= U3-X1) *CuE r + ( Y3-Yl)*SBfcT 

Yb = -( Aj-Xi)*SdET + < V3-Y 1) *CtifcT 

C AL=( X Li — UK 1 ) / U K 2 

S Al=A8S ( YB > /UK2 

C^LL HANK( dK, H0» Hi ) 

IFfCAL.LT.O. 1GC Tu 50 
I F l SAL*GT*o 3 ~> ) GC T(J 50 
CNT=15o *UK *C AL / S C K 5 
CALL HANM 2,*UK*PH0»hHl ) 

S il=CNT * { 2« *HH1*C0 k—H 0*SDK*CGK— hi * (U+CDKS)+2**I*0*1*J*CDK/PI/DK) 
S12=CNT*(2.*HH0* S0K*CuK-2.«Hhl*C»>K S 
2+2, *H 1 *C UK- HO* SCK— 2 • * ( • C » 1 • 1/PI/DK ) 

S21=CNT*(2.*Hl*CDK + H0*SCK-2. < • C « 1. MCDKS/PI/CK J 
$22=CNT* (H0*C0K*S0K-Hi*( U+CLKS1-2. *HHO*SOK 
2 + 2a *hrti*CGK + 2<, * ( • 0 » 1« ) *C UK / P 1 /UK) 

P ETUmN 

50 CONTINUE 
Flll=H0 

SU= ok* (-hl + 2.*( .Cl :* i*CDK/PI/JK» 

Sl^ = - U K * ( SUK*HC-CUK*hi+2»*l*G»i»U/PI/OK ) 

S 2 i = OK* {CUK*Hl~2«* i«0 r 1# I *CuKS/P I /OK ) 

S 22 = Ok*CuK* l SOK*HO-CuK*Hl+c.*l. 0, 1. ) /P l/OK ) 

A L - lo 570756 

IHCAL.N6.0. )AL = ATAN2( $AL # CAL) 

AL- A3 3 I AL ) 

Ifi AL.GT.2.0)GG TO 82 
T K = UK/ 2 * 

L)U 80 J = 2 f 3 
TkS=TK**2 

K K = So NT l DKS*2<, *LK*TK*CAL+TKS ) 

CALL HANM RK, M0, hi ) 

F ( J J = HO 
TK = UK 

80 CONTINUE 

SA=1. +SUK/UKt^** (CUK-1. ) /GK3 

Srt = 8 0 * ( 1 ,-COK) /UKS-A, * Suk/UK 

SC=3. *SUK/UK-CCK+A«*<CUK-1 . )/uk8 

Sll = Sll+CuK *( SC*M 1 ) + Sb*F ( 2) + $A*F (31) 

S 1 2 = S 1 £ + C0K *( SA*F< W*So*F (2)*Sc*F ( 2)1 
S2i = S21MSC*HlJ*S0*M2) + SA*l-l3ll 
S22=S22-(SA*f( l)+Sb*F(2)*SC*Fl3i ) 

GO TO 98 
82 CONTINUE 

Sxl = ( „O».0 J 
Sx2 = ( .0, ,0 > 

I NP = l * (1 NT / 2 ) 

F 1 T = I NP 

I F = I N P + 1 

GT=UK/F IT 

T K = # U 

SO I = - lo 

UO 90 1 = 1, I P 

U=SGl*3. 

lt~( ! • bw« 1) 0=1* 



APPENDIX A - Continued 


ie< i.tg. ip ) o = l - 

TK$=TK** 2 

RK=$gKT < CK$«-2. *DK*T K*C AL + T K 3 ) 

CALL HANK( RK,HC*Hl) 

Sl=SIN(liK-TK) 

S2=SIN(TK) 

SXL=SXl+Si*HO*U 
SX2=SX2+S2*H0*U 
SGI =-SG I 
TK= TK + UT 
90 CONTINUE 

SXl=SXi*JT/3. 

$X2 = 3 X 2* DT / 3 • 

SU»S11+C0K*SXI 
S I2=S12+CDK*SX2 
S2I=S2i-SXl 
S 22 - Sa 2 
93 CONTINUE 
X = UK / G 
I =X+i.5 
IF{ WLT.2) l =2 
I FI l.GT.lOiI=13 
I M= I - 1 
IP=I+1 
y = 4 L / H 
J = Y ♦ 1 « 3 
IM J.LT.2J J=2 
I H J# uT , L2 ) J - 1 2 
JM= J-* 

JP = J + 1 
M= I 
FJ = J 

X I s F I - i • 

YJ=f-J-l« 

P = X-X I 

g = y - y j 
P T= P/ 2« 

WT - U / 2 o 
AaPT* (P-l. > 
b= P T*- l P + le i 
C=oT* iw~i. > 

J = yT*iU+U i 
E»l.-P**2-0 **2 

Gli*A*£A< IPt J ) +d*lA( lP f J |+C*2A ( It JM)+u*2A I If JP) *E*Z4( I » J) 

G12*A*2blIM t J) + e*Zdl IP, J » + C*2iJ(It J«)+J*2et I, JP)FE*ZB II »JJ 
G2L = A*iCUtt»JJ+b*ZLlIP»JM-L*ZGU,JMJ+0*ZC(I»JP)+E*ZC(IfJ) 
G22-A*ZLM i M,J ) + h #ZU ( IP,J J ♦OZul 1, JF*|+i)*2C t I » J P I F t. *ZL I I » J J 
C CC = 1 3c /SiJKS 

Si i=CCC*<CAL*S 11 *011+0x1 
S12=CCC*<CAL*S U + G12+UK) 

S2i-CCC*(CAL*S2i+G2i*0x) 

S22=CCC’ML4L*$ 22 + G22+UM 

RETURN 

tNJ 



APPENDIX A - Continued 


Subroutine ZMM2 

SUBROUTINE 2MM 2 l Xl»Yl»A2tY<.»Xj»r3»0Kl r UK2TlNT t Sll»Si2»S21»S22) 

CCMPLEa kKHi 

COMPLEX SX 1 » S X2 

COMPLEa S11*S L2iS2i f St2 

OJMPLcX Yl 1, Y 12 » Y2 1 , Y22 

CCMPLca FY 1 » E Y 2 

COMPLEX H0,H1, FFC.HFl »ShO, SHI 

COM PL Ea DHhO » GHFl T L;FC,Lihl#USHO,uSHl 

COMPLEX i>Yil.UYl2tCY21»L:Yc2 

COMPLEX CCP 

COMPLEX FUN 

COMPLEX F l 3 ) 

0 AT A CCP/l .0, .63662)/ 

CKM =0 M 

1 P ( Dk 2« GT. UKl ) l)KM = UK2 
I Ft UKM. LT* 3. IGC TO 10 
Sil=(.0,.0l 

S12 = U 3*. 01 
S21=( • D t«0 J 
S 22 = ( « 0 » * 0 J 
KtTUP N 

10 CONTINUE 

SlJKl- S I M DM ) 

S UK2= S I N l UK 2 ) 

C0K1=CUS <UU ) 

C UK 2= CU S l UK 2 1 

C6ET = ( A 2 “ A 1 ) /OKI 

$BET = ( Y 2- Y i ) /U Ki 

Xb=Ix3-XiJ*CbET+( Y3-Yl)*SbfcT 

Yii=-t X3-XU*Sb tT + iY3-Y 11 *CbfcT 

CAL=( XO-UKl ) / UK 2 

S AL = A bS ( Yb 1 / UK 2 

CALL HANMUK2* HFCtHHl j 

UHH 0=UK2*HH0 

DHHl=UK2 *HH 1 

C IS 2= CuK i* SuK2 

C1C2=Cuk1*Cuk2 

iFtCAL.Li.O. 1GC TO 2U 

IFl SAL.GT..041G0 TC 20 

CNT=13« # CaL/SUK1/SUKZ 

CALL HA NK( UKl , HO ,H1 ) 

UH0=UK1 *HQ 
0H1=UK1*H1 
DKS = L)Ki + UK2 

CALL PiANM UKS « SFCf SMI 1 

CSH0=0KS*SH0 

LSH1 = UkS i> SHI 

Sii=CNT* ( CUKl*USHi-C 1 S<l*l1H0-LaC 2*UF1 — UFiFl ♦CCP*CGK2) 

S 12 = CNT* < C 0K2*UHF l“SuK2*UHFC-CLP + C CK1* OF 1 +C IS 2*USH0-C1 C2*0 SHl ) 
S2i=CNT* ( S UK 2* OhO-USH * +C UK 2* i*Hl +C OKI *UPh 1-CCP*CIC2) 

S22=CNT * (ClS2*UHF0-ClC._*uHhl+CCP*C OK 1 - uHl- SUK 2*1) SHO + C CK2* 0 <H 1 J 
«tT URN 

20 CONTINUE 

SlI=-uNHH-CCP*COK2 

S12=- SDK2*uHHQ+C ok 2*bHFi 1-C CP 

S2i = l UHH1-CCP*CUK2 )*CUKx 

S 22 = t SL)K2*UHHO-CtK2*UHH *CCP )*CuKl 

OKSl=OKl**2 

AL=1. 370796 

IPlCAL.Nt.J. 1AL=ATAN2(5AL» CAL) 


36 
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AL=AtiSlAL) 

INP=2*t INT/2J 
FIT = I K P 
I P=INP+ 1 

IF(AL.GT„2.0)GU TO 82 
Tk = * 0 

GO 80 J = 1 » 3 
T kS = T K**2 

RK=SwKT (uKS1+2.*UK1*TK*CAL*Tks) 

CALL HANK(RK f HG, HI ) 

F ( J J-HO 
TK=TK + L)K2/2. 

80 CONTI NUb 

DkS2=GK2**2 

SA= 1. *SuK2/l>k 2 +* t CuK 2-1. I /lx $2 
S d = 3 • * ( 1 . - C 0 k 2 J / 0*3 2-4. *3L«2/UK2 
SC- 3o *Sok 2/U*2-CGK2+4. *< CUK^-i.)/OKS2 
S II = S 11 + CuKlM 3C*F m*ia*Fl2>*SA*M2M 
SI2 = S12 + Ci0Kl < 't 3 A* F ( 1 ) + $ b* F ( ^ ) + 3C* F (3 ) ) 
S21=S21-<SC*Fl i)*56*F(2)+SA*F(3J ) 

S22 = S22-(SA*Fll)*S6*Fl2)*-SC*FU)) 

Gu TO 98 
92 CONTINUE 
UT=OK 2/FIT 
TK = .0 

$Xl = ( ,0, .0) 

SX2=l.C t .O) 

SGI=-1. 

00 90 I =1 » I P 
U = SGI +3* 

1 F { I.fcwu 1)0=1. 

I F ( I. Eg. IP ) 0= 1 • 

TKS=T K**2 

= SORT! GK 31+2. *CKl*Tr,*CAL + TKS) 

CALL HANK ( RK*HO*hl i 
S1*SIN( DK2-TK ) 

S2=$IN(TK> 

SXl=Sxl+Sl*HC*C 
Sa2=S*2+S2*H0*U 
SGI =- SG I 
TK - TK +UT 
90 CONTINUE 

SXl=SXl*0T/3. 

S X2= S X2 * OT / 3 . 

S21=S2i-SXl 
S22=S22-Sx2 
S12=S12+COKl*$X2 
Sll=Sli+CDKl*SXl 
98 CONTINUE 
JP= IP 

YU = (.0,.0) 

Y12=( .0* .0) 

Y21 =( .0, .0 I 
Y22 = ( • 0 » .0 ) 

B=. 0 

IFl AL.LT..05 JGC TO 210 
ALT=AL/2. 

CAL T=COS(ALT ) 

SALT= SI N ( ALT i 
R f P = ( uKl + UK2 )*C ALT 
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RbP= t UK2-UK1 ) * SA LT 
PHC=ATAN2( RSH t RCP] 

sci =-i. 

PH=-aLT 

0PH=Al/F!T 

UC 200 I=l r IP 
0= Sb I *3. 

I F ( l « EG * 1 ) L) = l • 

IH I.Ew.IP iD*l. 

SAP = SIN ( ALT +PH » 

SAM = SI,'m { ALT-PH ) 

IH PH o L E • PHC > RMAX=DKi*SAL/ SAP 

IHPH.GT.PHC )RMAX=UX2*SAL/SAP 

URx =K M A X/P IT 

RK=.0 

SGJ*-1. 

CY11H .C,.0> 

CY<1 2= < . 0 »• 3 ) 

L) Y2 1 = (. 0 f. 0 I 
CY22=(.C r *Ci 
L!G 100 J = liJP 
C=SGJ*J. 

!PiJoLw‘.l)C = l. 

IKJ.biJ.JP 1 C = 1 • 

CALL XHANK ( hK, kXf-1 i 
SK=RK*SAM/SAt 
TK=RX*S AP/SAL 
CL=C0S<SKJ 
C2=CJS( DXI-Sn i 
S 1 = S I .M t DX^-TKi 

5 2 = S I N l T K ) 

E UN = C *r K H 1 

uYl 1 = jy 1 l-POi't* Cl *S L 
U Y 1 2 = U Y 12-RUN*C1*S2 
CY2 1-OY21+* Ui\*C2*Sl 
UY2 2=uY 2 2+E UN#C2*S2 
SG J = - SG J 
PK= RK + U P K 
1 00 C JN T I N j E 

6 = SAP “UR K* U 
YlL = Yli + 3«om 
y l*»rli+d*uYU 
Y21 =Y21+d*uY21 
Y22 = Y2t + ti*DY22 
PH=PHfuPh 

SGI =- Sb 1 
200 CONTINUE 
B=UPH/9. 

210 CONTINUE 

CNT = 15. /S0K1/SUK2 
Sll=CNT*(CAL*Sll+B#Yli ) 
S12=CNT*(CAL*S12+B*Y12> 

S2l NT * (CAL*S21+B*Y21 I 
S22=CNT*(CAL*S22+3*Y22) 

RETURN 

LNu 
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Subroutine SMM3 


subroutine SMM3txi,Yi,x2,Y2,x:j,Y3,x4,Y'i, 
2UK1»0K2» S 1 1 » SI2* $2 1 » S 2 t ) 

COMPLEX Sil,S12,S21»S22 
COMPLEX eTl,ET2 
COMPLEX HO, Hi 

DIMENSION CC1(3C),SS1(3C) , CC 2t jO I ,SS2( 3 C ) 
Sll*( -0,.0) 

S L2= ( ■ 0 , « 0 1 

S21 = U 3, .Cl 

S22-1 • 0 , .0 I 

C BET- ( X2-X1 )/UKl 

S6ET= t Y2-Y1 J/0K1 

XA=lX3-XL)*C6tT+(Y3-Yl )*SBET 

XB=(A4-X1)*CBET+(Y4-Yl )*SBET 

Y A-— ( X 3 - X 1 ) # S B ET + ( Y 3— Y i J * C o E T 
YB=-( X4-X1 I * Sb E T+ { Y4~Y i) *Cfct T 
CAL = ( Xb-XA i / UK 2 

$ AL = l YH-YA ) / UK 2 
RMI N= 10000. 

X = X A 

Y = Y A 

00 40 J = 1* 2 

Y S= Y* # 2 
XP = .0 

00 35 1=1*2 

0 x= x- XP 

R=SwRTiDX**2+YS) 

1 E ( R. LT.RMINJRMJN=R 
X P= OK 1 

35 CONTINUE 

x = XA + Ui<2 ,!! CAL 
Y=YA+UR2*SAL 
40 CONTINUE 

I SS=4.*0K1/RMI N 
ISS*2*( ISS/2) 

I F t ISS.LT.2)ISS*2 
IE l ISS.GT. 1011 SS-10 
FSS = I SS 
ISw=l SS + 1 
US=OK 1/ESS 
ITT=V.*D*2/RMl N 
I TT =2 * t ITT/2 ) 

I F ( ITT. LT. 2 1 1 T T*2 
I E ( ITT.0T.10»ITT=1C 
E TT = I T T 
I TO- 1 TT+l 

0 T = Ox 2 / F T T 
XP-.O 
SGN=-1. 

Ou 50 I = 1, I S* 

C -SON + 3* 

1 El I.EO* L ) C * 1 * 

IF ( I. EO. ISw)C=l. 

CC1UJ =C*CCS(UKi-xP) 

SS L II J = C*S I NlOKl-XF ) 

CC2(I i=C*COS(XP) 

S S2 l I )=C*SI N( XP i 
S GO =- SGN 
x P= XP ■*- j S 
50 CONTINUE 
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UX= OT *C A L 
DY=UT *SAL 
X = X A 

Y = Y A 
TK=.Q 
SGJ=-1. 

DO 20 0 J=1 » I TQ 
0 =SG J +3 • 

I F ( J» Ew* 1 ) U=l. 

IF ( U. IT w J U=I. 

CTl=u*$I N( DK2-TK I 
CT2=J*S INI TK) 

XP = ,0 

Y S= Y**2 

t T 1 ■= ( • 0 * *0) 
c T2 = ( e U t • 0 ) 

DU 100 I =1 i I Sw 
0ELX=X-XP 

RK=SgRT { UELX**2 + YS > 

R UT = IUELA#CAL+Y*SAL )/RK 
C 1-CC 1 ( I ) 

SL-SSK I ) 

C 2= CC2 ( I ) 

S2= SS 2 ( I ) 

CALL HANK ( RK # H Q » h 1 ) 
ET1=ET1-(S1*HO*CAL+C1*H1*ROTJ 
ET2*ET2-(S2*H0*CAL-C2*Pl*RLT » 
XP*XP*i,S 
103 CONTINUE 

Sll = Sll+CT 1*FT 1 
SlZ=Si2+CT2*LT 1 
S21 = S21 + CT 1 + tT 2 
S22=S2Z+CT2*ET 2 
SUJ=-SUJ 
T K=TK+U T 
X=X+UX 

Y = Y + OY 

200 CONTINUE 

CST = i If •/?. I*0S*0T/S1K(UK1 J/SINIOK2J 

5 1 1 = C ST# 5 1 1 

512 = CST*Slt- 
S2i=CST*$2 l 
S22-CST #$2 2 
RETURN 

END 
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Subroutine HANK 


SUBROUTINE H£NK(X,H,Hl) 

COMPLEX H f H 1 
DATA TSP/,6366 2/ 

X =A bS ( X ) 

IHX,t,T,3.1G3 TL 100 
XL^ALUG ( , 5*X 1 
R 1 = X / 3, 

R4=R2*k 2 
fto=R4*K2 

IFtRl ,GT,, 1 K.C TC 30 

o=-, j,163 97 *P f. + 1, 26562 * R4-2 •<. 5*k2<- 1, 

Y=, 25 300 l#R6-o 7435C4*R4+, fcC5y94*R2+# 367467 
B 1 = X* (-,3954 29 fc- l*Rfc + . 2i.C92o*R4-, 3 625*R2 + , 5 l 

Y 1 = (-1, 3164 8^ 6 + 2, Ifcdc7*k4+, 22 x209*R2- <>63662 ) / X 

Y = Y fTSP *XLN*B 
Yl=Yi*TSP*XLN*dl 
H =C MP LA ( d, -Y J 

H1 = CMPLX(B1»-Y 1) 

RETURN 

50 CONTINUE 
R8=R4*P4 
R 10 = k t*R4 
R 12=R6*R6 

d*. 21E-3*P 12-, 39444E-2 + R 10 +,44447 9E-1* R 8 
2-,316367*k6+1.26 56 2*k 4-2 * 2 5*R2 + 1, 

Y=~,24B4cE-3*k 12 + .427'il3t-2*H10-c42612 lt-l*K3 
2 + ,2 53 00 1*R6-. 742 304*R4*. 605594*42*, 36 7 4 67 
61- X* U 1 L09E-4*P. 12-,317fclt-3*Ri0*,443319E-2*R8 
2-,j.9342Sc-l*R6 *, 2 1 093 c *k 4- * 5 62 5*R 2 ♦ , 5» 

YI=(o 27b73E-2’ t ‘R12-,4CC576E-i*klG*, 912395*48 
2-1, 31 64 6*P 6 + 2 o 16E27*R4+»2212 C 9*K 2— «6-26£2J / X 
Y=Y+TSP*XlN*B 
Y1=Y1+T SP*XLN*61 
H=CMPLX ( ri f - i ) 

Hl=CMPLX(Bl»-Yl) 

RETURN 

100 CONTINUE 
S« = SjRT (X) 

R 1= 3, /X 
R2=RL*R 1 
R 3 = R1 *P 2 
R4= R2 * R 2 
R5=R3*R2 
R6®K3*R3 

F=. l4476E-3*fi6-.72805E-3*K5*.ij7237E-2*P4 
2-, 95 12E-4*k3-. 552 74 E- *k 2- • 7 7E-o * R 1*. 7 9 7 b 85 
T =,1355fit-3*R6-,29333E-3*f<5-,5‘H25E-3*R4 
2+.262573t-2*R3-, 395 4L-4* R2-. 4 1 664 E- 1 *R 1-,7853S6+X 
0=F*C0S m/Sw 

Y = F * S I N ( T ) / S k 

E=-.2003^E-3*Rfc*.113653£-2*R5-,2495 1]E-2*R4 
2*,17105E-3*R3+,165967b-j.*K2 + .15oE- 5*R1 +. 797885 
T=-,29166t-3*R6+.79824E-3*h5+,74348E-3*R4 
2-„£37879E-2*R3+. 5 fc 5E-4 *R 2* . 1 2*»996* R 1-2. 356 1 9 + X 
8 1 = F * C 0 S ( T ) / S M 
Y1=F*SIN(T ) /Sw 
H=CMPLX ( d,-Y i 
H 1 = C M P L X l 6 1 » — Y 1 ) 

R ET li° N 
END 
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Subroutine XHANK 


SUtiR'jUT I Nt XHANK ( X , XH ) 
COMPLEX XH 
COMPLEX G(57) 

DATA G/ 



0.0 , 

0# 636 £ 20) , 

0. CC4994 » 

0.64 5855) , 

0.C199C0, 

0.664765) , 


0 • j 4*496 t 

C# t> 6 79.3 1 J , 

0# C7 84 li. » 

C. 712349) , 

0.121134, 

0.735736) , 

e 

Uo 172020, 

0# 756234) , 

C* 23C297, 

C. 7 7 2 27 4 ) , 

0.295073, 

0.7825151 , 


0# 3 633 54 , 

0. 785814) , 

0# 4*0050, 

0.78 121 3) , 

0.517992, 

0.767932) , 


0. 397946, 

U. 745364 1 , 

0. 678630, 

0. 71 3C76) , 

( 0.758726, 

0.67C306 } , 


0. 836904 , 

0.61 8463 ) , 

C*911d33, 

0, 556125) , 

C.5822CC, 

0.484035) , 

• 

1.046729, 

0# 40 259 7), 

1. 104198, 

0.312372) , 

1.153*45, 

0.214066), 


1# 1 93 4 i 3 » 

U. 108527) , 

1. 223118, 

-C* 002272) , 

1.2417C6, 

-0. 12C236) , 


1 c 2 4 84 45 t 

-C. 241172) , 

1 * l 4 2 7 i 5 » 

-0.364794) , 

I 1. 224128, 

-0.489743), 


i. 192324, 

-0#614b06) , 

1 . 1471 86 , 

- C. 737925) , 

( 1. C 8874C, 

-0.85b224) , 

• 

1.017176, 

-0* 974021 ) , 

C. 532857, 

-1. 08 38491 , 

0.836299, 

-1 .186275) , 


J. 726191, 

-i. 279913) , 

0. £05,3 89, 

-1.362450), 

l 0.480824, 

-1.435658) , 


O.34_>670, 

-1. 4954C9) , 

C* 195169, 

541694) , 

( 0.048722, 

-1.573635), 


— J. 106c48, 

-1.590497) , 

— 0# 2c41 70, 

- 1.5917C2), 

[-0.423418, 

— 1. 3 7 6 3 d 6 ) , 

c 

-Co 582314, 

-1. 545654) , 

-C. 739152, 

-1.498C54) , 

[ -0.692209, 

-1.434272), 


-1.039768, 

-1# 354489), 

-1.1801*0, 

-1.259230) , 

(-1.311676, 

-1.149158) , 

# 

-1,432796, 

-1.026115) , 

-1. 542001, 

-C. 88eil2) , 

(-1.637394, 

-0.739318 ) , 

• 

-i. 719193, 

-C. 380060) , 

-1. 784758, 

-C. 411793 ) , 

(-1. 633591, 

-0.2361C7) , 


1-1.664861, 

-C. 054691 > , 

-1. 877910, 

0. 130665 ) , 

1-1.872264, 

0. 318107)/ 


X = A U S U ) 

IMX.bT.5.6IG0 TO LOO 
y =1 3. * a 
j =y + 1 . 5 
I hi J.LT. 2) J = 2 
IH J.GT.56J J*36 
JM= J-l 
JP = J+ i 
F J= J 

yj=f j-l* 
o=y- yj 
0 T = 0 / 2. 

C = ■■ J T £ ( g- i« I 
IJ=-JT* ( 0 + 1, ) 

E=l.-G**2 

XH=C*G< JM)+0*G< JP)+E*G(J) 

RETURN 

LOO CONTINUE 
S * = S w k T ( X J 

R 1-3# /X 

R2=R1*R1 

K3=R1*k2 

R4=R£*RZ 

R5=R3*R2 

R 6=R3*R3 

E=-o20033t-3*R 6*.1136S2t-2*R5-.2495 llfc-2*R4 
2+.17103E-3*R3+.l£55o7h-i*K2+«I36E-3*Rl+«?97885 
T =-.2 9166b-3*R6+.7 98 i .4t-3* : R5+. 743 4 8E-3*P.4 
2-. 6 j>7o7 9£-2*h 3+.56f t-4 * R2 + . i 2t99t> * R 1-2# 2561 9+ X 
B 1 = F *COS (T i *Sw 
Y 1 = F* SI N ( T ] *SW 
XH=CMPLX I Bl, -y 1 ) 

RETURN 

END 
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Subroutine CFF 


SUBROUTINE CFF (XA,YA#XB,YB,DK,CPH t SPH l EPI»£P2) 

COMPLEX EJA,EJB > EPl,tP2»SQJtCST 

SQJ=30.*(1., 1. )/ 1*4142 14 

X AB=X 6-X A 

YA8=YB-YA 

CA=XAB/OK 

C 8= YA B/DK 

G=CA*CPH+C8*SPH 

P =C 8* CP H— C A*S P H 

GK=P**2 

EPl = ( • Of *0 ) 

EP2 s («0t*0) 

IF(GK.LT..001)GC TO 200 
A S XA*CP H+Y A *$PH 
B = XB* CP H+YB*$PH 
EJA*CMPLX(COSl A»,$IN( A) J 
EJ8=CMPLX1C0S( 6) »SIN(8 ) ) 

S0K = S INIDKJ 
COK =COS (OKI 
SGD=SIN ( G*OK i 
CGO*C OS { G*DK J 
CST-SUJ/ (P*SDK ) 

EP1=CST*EJA*CMPIX<C0K-CGD, G*SDK-SGD) 
EP2=CST*EUB*CMPLX(C0K-CGU, SGC-u+SDM 
200 CONTINUE 
RETURN 
END 
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Subroutine SKETCH 

SUBROUTINE S K ET CH ( XC COR, YCCCK»NPL OT , HP AT, NSKI P S *N SYMB, N SI 2ES, 
1 IUNITS) 

COMMON / fcSL Ki / KNTPLT , XNE w » YN E W 
DIMENSION XCCQR ll ), YCOCR 11) 

K.NTPLT = KNTPLT+ 1 
wR I T E { 6 » 30 5 ) KNTPLT 
I F ( KNTPLT. tU.l ) GO TU 2 
CALL, CALPLT! XNEv>,YhE*, -3) 

3 CONTINUE 
XMA X= 0. 

YMA X= 0. 

DO h I =i » N FLCT 
X TST = XCOOR ( I ) 

X AT S T = A b S ( XT ST ) 

IF( XATST.GE.xTST ) XMAX=aaTST 
YTST=YCOOR( I ) 

Y AT ST =A 6 $ I YT ST ) 

IF( YATST.GL.YMAX ) YMA X = Y AT S T 
A CONTINUE 
L MA X= XMA X 

IF( YMAx.OE.XMAX) 2MAX= YMAX 
SC A L £ = 2 M Ax/ ( C.2*hPAT) 

H AL F = 0. 2 *HP AT 

CALL CALPLT(-HALF,-HALF,3) 

CALL CALPLT(HALF,-HAlP,2) 

CALL CALPLT ( HALF , HALF, 2 ) 

CALL CALFLT(-H ALF,HALF,2 J 
CALL CALPLT ( — HALF,-HAL F , 2 ) 

CALL CALPLT (-HALF, C. » 3 ) 

CALL CALPLTI HALF, 0., 2 ) 

CALL CALPLT (0. , -HALF, 3 ) 

CALL CALPLT (0. , H AL F , 2 ) 

CALL LALPLT 10. ,0. , 3) 

XCOOk (NPLOT *1 ) =0. 

XCOOR (NPLUT + 2) =SC A L E 
YCOCR ( NPLOT +■! ) =0. 

YCUUk (NPLOT + 2 ) = SC AL t 

CALL LINPLT (XCCOR, YCOCR »NPLCT, 1, NSK I PS »N$ YM 6 , N$ I 2 ES , 0 ) 

IF(NSKIPS.LT.O ) GO TO 5 

STX=XCOCR(NPLCT) 

STY=YCUOR(NPLOT J 
STX 1 =XC OOR ( 1 ) 

STYI = YCOQR ( 1 ) 

CALL CALPLTt STX,STY,3) 

CALL CALPL T ( STXi , STY 1 ,2 ) 

5 CONTINUE 

HOT =0.0 I5*HPAT 
XSC =-HALF 

YSC=-HALF-0«07 *hpat 
I F ( IUN1TS. do. 2 ) GO TO 6 

CALL NuTATtl XSCfYSCfHCT, l^HSCALt, CM/IN = ,Q.,LE) 

XSC-XSC + (90./7o ) *HGT 
GO T ■ j 7 

6 CALL NOTATt ( XSC ,Y$C ,hGT, I6HSCALE, hVL/IN = »0.,16) 
XSC-XSCM96./7 . )*HGT 

7 CALL NJMtJER IXSC ,YSC ,HGT, SCALE, 0. , A > 

CALL CALPLT (0. ,0. ,3) 

XNtn-G. b^ HP AT 
YNt w = 0. 

RETURN 

305 FOR MaT ( 2 5H ♦ + 

ENU 


KNTPLT = 13) 



c'. o o o o n 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Subroutine DBPLOT 

SUBROUT I NE UBP L CT ( HP AT , K I , I S K I PP , I S I ZE P » 
1 ThTA,A£PH1, AEY,PEPH1) 


TO USE CALC CMP EQUIPMENT TO PLOT MAGNITUDE AND PHASE 
VARIATIONS Oh A SLNuLE CCMFCNENT OP THE RADIATION 
FIELD AS A FUNCTION UF ANGLE 


* PURPOSE 

* 

* 

* 

* INPUT DATA 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

£ 

* 

* 

* 

* 

4 

* A E Y IS AN ARRAY UStU FOR INTERMEDIATE CALCULATIONS 

* 

THE AkRAYS ThTA, A E PHI t PEPH1, AND ACY MUST 
bE DlMENSICNcU AT LEAST AS LARGE AS THE VALUE 
(nI+ 2) IN THE CALLING PROGRAM* CCMMCN /B L K 1 / 
KNTPLT ,Ai\itw, YNtw MUST ALSO APPEAR IN CALLING 
PROGRAM 


HPAT=5.* (RADIUS UF PCLAR PLOT, INCHES! 

FOR TYPE 400 PAPER* ( F P AT . LE . 10. > 

FOR TYPE 300 PAPER, { HP AT . LE .2 8. ) 

TC OBTAIN POLAR PLOTS IDENTICAL TO PATTERN 
RECORDER PULAR PLOTS* USE HP AT 3 1 6. 75 
KI=NUM BLr Ur POINTS TO BE PLOTTED 
I S K I PP = 1 FUK SYMbUL EVERY DATA POINT* 

i FOR SYMoUL EVERY OTHER DATA POINT, 6 T C. 

IS I ZLP = 1 rOR SMALLEST SIZE SYMBOL* 2 FOR MEDIUM 

SIZE SYMdOL, AND 2 FOR LARGEST SIZE SYMBOL 
ThTA-AKRAt CONTAINING the ANGULAR values lUEGREES) 
FUR WHICH THE FIELD IS TO BE PLOTTED. FOR A 
CUMPLtTE POLAR PLOT, THT A ( 1 ) =0 • » THTAt K I) =360. * 
AL PHI = A KR AY CF MAGNITUDE VALUES ( UB ) CORRESPONDING * 
TO ANGULAR VALUES IN ThTA ARRAY* VALUES * 

MUST Lie BETWEEN C CB (MAX) AND -40 DB (MINI* 
P t P H 1 = ARRAY CF PHASE VALLES (DEGREES! CCRRE SPO N D I NG * 


TC ANGULAR .VALUES IN ThTA ARRAY.. VALUES 
MUST LIE BETWEEN l 8C. (MAXI AND -130. (MIN! 


* RESTRICT IONS 

* 

* 

* 

* 

* 

# # $ * # 


if 
* 
# 
if 
if 
if 
if 
* 
if 
* 
* 

: if#* if if if if * ***$*$• 1 *$# 


COMMON / BL K1 / KNTPLT »xNcw*YNtw 
DIMENSION THT A (1 ) * A E P h l ( 1! ,AcY (1) *PEPHl(l) 
P I = 3. 1415926535 6S 793 
RCN=P I/1B0. 

KNTPLT=KNTPLT+ 1 
w R I TE (6,3051 R N T F L T 
IF( KNTPLT. Lv. 1 ) GO TU i9 1 
CALL CALPLT ( XNEw, YNLrt»-3 ! 

191 CONTINUE 

S'Ta=3.2075*HPAT 
ST Y = 0. C037 ; *HP AT 
STh=D.015*hPAT 

CALL NUMBER. (STX*STY*STF*C. *0.* — 1) 

STXl=STX«-J.012ct*NPAT 

STY 1= ST V *G e 0 1 0 *h PAT 

STH 1 =0. 006*HPA T 

CALL NUMBER ( STX1 ,ST Y 1, STFi ,C 0. ,-l» 

S T K =- D. 0 13 7 5* H PAT 

CALL NuM3£h(STX»STY*$TF* 3E0.*0o»-1) 

STa1-STX+0.02b57*hPAT 

STY 1= STY + 0.0 10*H PAT 
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CALL NUMBER (ST Xl»$TYi»STHl I 

STX=-0.Qi071*hPAT 

STY=G.2C‘75*HPAT . 

CALL NoM dEK ( $TX»STY*STH»9C*»C*t“l ) 

$TAl=STXfG*02571*HPAT 

STY 1=STY*'j«010*HPAT 

CALL NUMBER(STX1»STY1*$TH1 rC®fO*r“l^ 

STa = — Oo 2 t9 5* HP AT 
STY =“ 0*037 f*HPAT 

CALL NUMdtR(STXtSTY»SThtiaC*»0*»-l) 

ST XI = STX *0.0 36 57*HPaT 
STY1= $TY+0.010*RPAT 

CALL NUM3cP-(ST XltSTYl|STHl»G*tu*» — l) 

STX=-G»0171**HPAT 

STY=-Co 2223*HPAT 

CALL NUMBER l $TX,STY,STH,£70*t0*»-l> 
ST*i= ST X *0.03 057^? AT 
STY1=STY+0*010*HPAT 

CALL NUMBER (STXl»STYl»STH»u.»u**-l) 
SRHUj - 2 5 • 

SRHG= SkHUu*Rl)N 
SR A L)= Oo 202 - * HP AT 
STX = -SR AO* SIN l SR HC ) 

STY=SRAU*CUS(SPhC) 

CALL NUMBER ( ST X, STY t STH»0* ,SRH0U,-1) 
CALL NOT ATc( STX, STY,STH,Ah LB*$RH0D,4) 
SRAl>=0* 1525*HPAT 
STX=-SkAO*SIN( SRHC ) 

STY = SRAO*COS ( S RHO ) 

CALL NUMBER ( ST x» ST Y » ST H 10. t SRHOu » -1 ) 
SRAu=C. i 02 S*HP AT 
STX=-SP AU*SIM SRHC) 

ST Y= SR AD*C U5 ( SRhU > 

call Number ( stx, sty«si> 9 -io« v $hhou»-ii 

SRA0=C.O525*HPAT 
STX=-SRAJ*3IN< SRHC) 

STy=SRAU*CCS (SRHC) 

CALL NUMdLR(STX,STY,$Th,-30, »SRhOO,-l) 

H R A 0 = C » 2* HP AT 

CALL CALPLT ( HR A 0 , 0* , j ) 

L L N0= 6 

0 S R HO = P I ✓FLOAT (LENU ) 

00 19 3 L -1 * LEND 
L M 1 = L — 1 

DSR HU 1-CSRHC* FLOAT ( LHi 1 
SOxl=HR AC*CQS{ USRH01) 

SJY l=HRAJ*SIN( 0SRHC1 ) 

CALL CALPLT ( -S C X 1 , -Sl> Y x , 2) 
DSRH i .')2=OSkhO*FLCAT (L ) 

S 0X2 = HR A D*C 0 S ( CSRH02) 

SOY 2=HR A D* s l N( DSRHC2 ) 

CALL CALPLTt S0X2 »SLY2»3) 

193 CUNTINUE 

CALL CALPLT ( C* »C. , 3 > 

K END = A 

SURlM HR AU/FLUAT UEN01 
OU 195 K = 1 t KtNO 
XXO=S JRU*FLUAT (K) 

CALL Cl R^L E t X X 0 » 0 • * 0 • » 3 o C • fXxCfAXOt -i) 
195 CONTINUE 
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OtiP I j = 2C3. /HPAT 
JO 2 c 1 KX - 1 f K I 
TMTA1 = THTA ( KX ) *RGN 
AEPH2=AEPH1 (KX )4-4C* 

AEPHi (Kx) = ( AEPH2/UBP IN )*C0 SIThTAl * 

AEY (KX) = < AtPH2/LciPIN)*$IN( ThT Al) 

221 CONTINUE 

AEPHI ( K I + 1 i =0. 

AEPHI ( K I +2 ) = 1* 

AtY(M + ll=0. 

AEY(Kl+2)=l® 

CALL L1NPLK At Phi, AtY,KI , 1 , ISMPP, 1, IS I ZEP.C) 

XNt * = -0. 2*HPAT 

YNE *=-0.62* HPAT 

KNTPLT=KNTPLT+1 

hRITfc(6#305) KMFLT 

CALL CALPlT ( XNtW, VNE*,-2 ) 

lS t Cc=0.4*HPA t 

DuV Vl=360. /OSTCE 

X T H A J = j. 25*D$TCL 

XTM Im = xT4A J/9. 

STM=0. Q2*HPAT 

CALL AX E S ( G. ,0.,Co,GSTCt»G.»uuVVl» XTMA J,XTPI N , 14H THETA, 
1 STh, -14 ) 

D$TCe=0.3*HPAT 
□ 0VV2 = 36C 8 /l>STCE 
aTMAJ= 0. 25* UST C t 
XT*I ^=XTMA J/9. 

CALL AxfcS(0.,0. ,90.,U$TCE,-ldU.,OJVV2, XTMA J,XTMIN, 

1 14HPH4SE, jEGHLES , STH,14) 

XbGRi)=(0.4*HPAT)/12. 

YS«jEJ= ( 0. 3*H PA T ) /4. 

C AL L Gk I D ( 0 . ,0* , X S GKU , Y $G R Q , 12,4) 

ThTA(kI+1)=0* 

THT A ( KI +2) =UUV VI 
PEP HI ( KI 4-1 ) =-180. 

PEPH1 ( K I +2 J = DD V V 2 

CALL LINPLKTHTA ,PEPhl ,M, 1, I SM PP * 1 , I S I Z EP , 0 ) 

X N E w= 0* 8*HPAT 
Y.NIt w=0 8 62*HPAT 
RETURN 

3 OF EORMAT(23h +- + * + + 4 + 

END 


DEGREE S, 
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APPENDIX B 


NUMERICAL EXAMPLE 

The purpose of this appendix is to present a numerical example which illustrates 
the application of the digital computer programs presented and described in appendix A. 
The example is the computation of the roll-plane radiation patterns for case 3. In the 
example, the frequency range is the interval of 5,250 GHz to 14.000 GHz, with an incre- 
ment of 1.750 GHz. Consequently, FMCO = 5250., FMCD = 1750., and FMCF = 14000. 
The two annular slots for case 3 require four equivalent narrow axial slots; consequently, 
NPORT = 4. 

The cross-section profile, shown in figure 8, is initially described, as shown in 
figure 13, by 55 coarse points; thus, NPTIN = 55. In figure 13, the numbers between any 
two consecutive points specify the number of segments to occur between the two points 
by subroutines SPLFIT and SPFIT2. As noted in appendix A, the number of points gen- 
erated between a pair of consecutive points is one less than the number of segments that 
occur. In figure 13, coarse point 27 appears to lie in an approximately linear region of 
the profile; consequently, point 27 is chosen as the point for initiation of the spline fit 
procedure; that is, 1ST ART = 27. Other input data for the example are that MADM • 0, 
KI = 361, KWRT1 = 1, KWRT2 = 1, KWRT3 = 1, ISK3PP = 15, ISIZEP = 1, and 
HPAT = 18.75. 


Input Data Cards 

A listing of the input data cards for the numerical example is on the following page. 
The first card contains, in sequence, the values NPTIN, ISTART, NPORT, MADM, KI, 
KWRT1, KWRT2, KWRT3, ISKIPP, ISIZEP, HPAT, FMCO, FMCD, and FMCF. 

The next four cards are cards which specify the port index I, the coarse point 
index JVGS(I), and the complex voltage strength VGS(I) for each of the four equivalent nar- 
row axial slots which excite the configuration. The first two cards apply for the annular 
slot located at (see figs. 1 and 8) and the second two cards apply for the annular slot 
located at B2« 

The next 55 cards specify identifying integers and the X- and Y- coordinates, in cm, 
of the 55 coarse points. The first of these cards is for coarse point 1, the second for 
coarse point 2, and so forth. In particular, on the Ith card are the identifying integer 
IGNORE, the X-coordinate PNTIN(I.l) in cm, and the Y -coordinate PNTIN(I,2) in cm 
of the Ith coarse point. 
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53 

4 

0 261 

1 1 l lt> 3 18.75 1 74n. 1 4 r ' n ^ # 

l 

1 [ ■ 

. 000 

0. 

2 

9 - 1 

*000 

0- 

.1 

29 “1 

* 000 

0- 


2=> 1 - 

. ooo 

□ . 

3 

9*610 

C*C00 


7001 

9 . jaa 

0*797 


^CJ02 

9 * 369 

0 * 666 



9*330 

0*9 34 


3 C U* 

9.257 

1 * 268 


100^ 

9*165 

1 .600 


3006 

9.073 

: * 732 


TOO 7 

a. 980 

2 . 266 


100B 

8.961 

? . 334 


- 3C 00 

5.9*2 

2 *403 


8 

6. 720 

3 . 2 --*0 


14 

7. SBC 

6-216 


is 

7. ) 90 

b* i : i 



fi . 3 1 0 

9 


P 6 

5. 200 

1 I .500 


30 

4.000 

12.810 


34 

2. =50 

14 *020 


37 

*" 1 « 3C 0 

1 4 ,6:o 


4 l 

t; . c o o 

1 4 .800 



- I . 30 Q 

14 -6 00 


4d 

-2. -360 

' 3 4.020 


52 

-4.000 

12.810 


56 

-5.200 

l 1 .500 


60 

-6.310 

9.753 


64 

-7.1 90 

e - \ oo 



-7.880 

6.2 10 


74 

-©• 720 

3-200 


~ 0 1 1 

94 2 

2.4 02 


1012 

-87961 

2.334 




3013 

-a. 950 

2 . 266 


1014 

-9.073 

l . V32 


101 •b 

-9.166 

1 .600 


1016 

-9.25 7 

1 


1017 

-9.2 50 

r .924 


3015 

-9. 369 

0*866 


1019 

-9. ?aa 

0 *-79 7 


ai 

-9.6 10 

O.O-'iO 


ae 

-l 0*500 

-3*200 


9| 

- 1 1*600 

-4 . 


94 

- 1 C. , 6 0 0 

- = .200 


9 7 

-9.5C0 

-6-1 


1 Oo 

-a.ooc. 

-6-640 


3 04 

-6.000 

-7 *05*9 


3 CO 

-4 .000 

-7 ,?63 


1 12 

-2.000 

-7*400 


3 16 

0.000 

-7.4 ao 


3 20 

2.000 

— 7 .4 00 


3 24 

4.000 

-7*280 


3 28 

6.OC0 

-7.0 50 


3 32 

a. ooo 

-6*640 


l 3*1 

9.500 

-6 • 1 00 


1 38 

l r.600 

-5 .200 


141 

1 O.AOO 

—4 .250 


] 44 

1 3. ‘500 

-2*209 


l V 

9 _. 6 3 0 

0.030 


11 1 

11111 

] .16 4 4 

04 4 4 44444 4 44 6 31 1 1 1 1 3 1 1 •*-••*•** 

14 4 

4 4 4 4 4 

4 3 13. 3 

7 


The last two cards contain the IDIVD array data. There are 54 integers (NPTIN-1) 
rtiich constitute the IDIVD array data. The first value, IDIVD(l) = 3, indicates that three 
legments occur between coarse points 1 and 2. Thus, subroutines SPLFIT and SPFIT2 
;enerate two points between coarse points 1 and 2. The second value IDIVD{2) = 1 initi- 
ates that only one segment occurs between coarse points 2 and 3. Consequently, sub- 
outines SPLFIT and SPFIT2 generate no additional points between coarse points 2 and 3. 

L similar interpretation is given for the remaining IDIVD array values. The sum of the 
DIVD array values is 166; thus, the IDIVD array data cause 166 actual points to be pro- 
luced for use in subroutine TESLOT. A plot of the 166 points is given in figure 8. The 
,ew indices for the four equivalent narrow axial slots are also given in figure 8 and in 
able I. 
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Execution 

After the input data cards are read by the main program, execution occurs. The 
printer output data follow: 


*****#*********' 


NPT I N=55 I ST A RT= 27 


[DIVo A RRAY VALUES 


J lllll 1 11364444444444444 

34444444433337 

NPDIM MXNPT NPQRT MXPORT MAUM Kl RwRI 1 

ltb 170 4 0 0 41 1 

♦ ♦♦♦♦*■«• + + ♦•♦■♦ + ♦»• K.NTP LT = 1 

LOCATION OP POINTS 
POINT A, CM. Y» CM. 


1 

9.6100 

G.OOCO 

2 

9. 5366 

,265b 

3 

9.4620 

.5313 

4 

9. 3680 

.7970 

5 

9. 36 90 

.atto 

6 

9. 35 0 C 

• 9 j40 

7 

9. 2570 

1 • 2 6 dC 

8 

9. 1650 

1 . c.C C 0 

9 

9. 073 0 

1.9J2J 

10 

3.9800 

2. 2660 

11 

6. 9610 

2.3340 

12 

6. 94 20 

2.4Q3C 

13 

8. b5 8 3 

2.6627 

14 

8. 7940 

2.9543 

' C 

8. 7200 

3.2000 

16 

3. 5e32 

3.7027 

17 

8. 4 4 3 7 

4.2060 

18 

6. J1 37 

4. 7C 32 

18 

6. 1757 

5.2114 

zO 

8. 032 0 

5.7120 

21 

7. 8800 

6.2100 

22 

7. 7232 

6.6879 

23 

7. 5562 

7.1625 

24 

7. 37B5 

7.6333 

25 

7. 19C0 

6. 1000 

zt> 

6. 99 11 

8.56C2 

i.1 

6. 7794 

9.0146 

2B 

6. 553 0 

3.46 17 

29 

6. 3100 

9. 9000 

30 

b. 0566 

1 0.31o4 

2 1 

5. 7666 

10.7223 

j 2 

3. sues 

11.1171 

33 

S« 2000 

11.5000 

j4 

4. 91 3 K 

11. 83E7 

3 5 

4.6163 

12.1667 

3 s 

4. Olid 

12.43 Id 

37 

4. 000 0 

1 «. • olCO 

38 

3. 6660 

1 3. L230 

39 

3. 3213 

12.4361 

40 

2. 9510 

1 J. 75 26 

41 

2. 5300 

14.02CC 

42 

2. 277C 

14.197c 

4 1 

la 8cl4 

14. 3527 

44 

1. 6351 

14.4679 

4 5 

1. 3000 

14 • oOCC 

46 

• 9u G2 

l 4 • o 644 

47 

a 655 9 

14. 7473 

'8 

. 3287 

14. 7665 

49 

Ca 0000 

14. BCCC 

50 

->267 

14.7665 

: l 

-a o5 59 

14. 7473 

5 2 

9602 

1 4 • 6 d 4 4 


46311111 1113733 


KWRTZ K*RT3 ISKIPP 1SIZEP 
1 1 15 1 


HP AT FMCO FMCO FMCF 
18.75 5250.0 1 750. C14000.0 
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5 3 

- 1. 3000 

14.60CC 

54 

- 1. 6351 

14.4879 

? 5 

-1. 96 14 

14. j5j7 

5 o 

-2. 2770 

14.1976 

17 

-2. 5800 

14.W200 

56 

-2. 9610 

13.7526 

5 9 

-3. 3213 

13.4561 

60 

-3. 6660 

13.1590 

61 

-4. 0000 

. 12. 6100 

62 

-4. 3118 

12.4918 

63 

-4. 6169 

12.1667 

64 

-4*9135 

11.8387 

66 

-5. 2000 

11.5000 

66 

-5. 5007 

11.1171 

67 

- 5* 7665 

10,7223 

60 

-6. 05 6 5 

10.3163 

69 

-6. 3100 

9.90CC 

70 

-6. 5531 

9.4617 

71 

-6. 7797 

9.0147 

72 

-6.9914 

8. 56C J 

73 

-7. 1900 

8, 1 COG 

7 ^ 

-7. 3779 

7.o331 

76 

-7. 5551 

7. 1622 

76 

-7. 7223 

6.6876 

77 

-7. 8600 

6.2100 

70 

-3. 0343 

5.7127 

79 

-8. 1808 

5.2129 

BO 

-8. 3210 

4. 71 14 

61 

-8.4566 

4.2064 

62 

-6.5891 

3. 7044 

63 

-6. 7200 

5. 2uvQ 

64 

- Bo 7944 

2.9345 

85 

-8. fc6 85 

2.6668 

66 

-3. 9420 

2.4050 

37 

-8. 9610 

2,3540 

68 

-6. 9oC0 

2.2660 

69 

-9. 073 C 

1.9320 

90 

-9, 1650 

l.fcOCO 

91 

-9. 2570 

1.266C 

92 

-9. 35 0 0 

.9343 

93 

- 9. 3t 90 

. 5660 

94 

-9. 3860 

.7970 

95 

-9,4620 

.5313 

96 

-9. 5.566 

* 2 6 5 6 

97 

-9.6100 

O.OGCO 

9B 

-9. 7303 

-» 45 cb 

99 

-9. S4S7 

-.9183 

100 

-5. 9607 

- 1.3761 

101 

-10. 0/93 

-1.8371 

102 

-1G. 2059 

-2.2944 

103 

-10. 3447 

-2.744C 

104 

-10. 5000 

-3. 20 CO 

105 

. -10.6277 

-3. 5441 

1 06 

-1U, 7377 

t3.692G 

107 

-10. 8000 

— 4 . i b CO 

1U8 

-10. 7947 

-4.5782 

109 

-10.7,181 

-4.9C 10 

110 

-1 0. 6000 

-5.20L0 

111 

-1 0. 3086 

-5.5685 

112 

-9. 9278 

-5.6629 

113 

-9. 5000 

- 6 * 1 0 0 u 

114 

-9. 0066 

-6.5163 

115 

-6.5063 

-6 « 49 26 

116 

— 8. 00 00 

-6.64CC 

117 

-7. 5065 

-6.76-3 

116 

-7. 0077 

-6. 87 18 

119 

— 6. 5 05 0 

-6.9669 

120 

-6. CCC0 

-7.C5CC 

121 

-5. 5011 

-7.12 It 

122 

-5.0014 

-7.1635 

125 

-4. 50 1 1 

-7.^361 

124 

-4. 900 j 

-7.*6CO 

125 

-3. 5006 

-7.31:7 

126 

-3. 0007 

-7.3459 

127 

-2. 5005 

-7.3731 

126 

-2. 0000 

— 7. 4 0 CO 

129 

- 1. 5000 

-7, 4* cO 

130 

-1. 0003 

-7.453d 

131 

5003 

-7.4727 


3. GOOD 

-7.46C0 
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135 

, 3000 

-7.4727 

1H 

1. 0000 

-7.453e 

13 3 

1.5C00 

-7. 42 tO 

lie 

2. c.goo 

-7*40 CO 

1 37 

2. 5005 

-7. 37j1 

13 3 

5. 0007 

-7.5455 

139 

3. 5C06 

-7.3157 

14-3 

4. 0 000 

-7.2800 

141 

4. 5011 

-7.23U 

142 

5.0014 

-7. i 83 5 

143 

5.5011 

-7.1216 

l"t 

4. OJOO 

-7.05C0 

145 

6. 5050 

— 6. 56 o5 

196 

7. 0077 

-6. 8713 

147 

7. 6065 

-c. B 7623 

148 

3. 0000 

-6.64C0 

149 

6. 5068 

-c. 4526 

ICO 

9. 0066 

- i • j 1 6 ^ 

1 3 1 

9. 3 CO 0 

-6. 1CCC 

152 

9. 9273 

-5.5629 

153 

10. 30 B6 

-5.5685 

154 

1 0. 60 00 

-5.20t0 

155 

10. 7281 

-4. 50 10 

156 

10. 7947 

-4.5782 

157 

1C. 8 COO 

-4.2300 

158 

i 0. 73 7 7 

-3. 8920 

159 

10. 6277 

-3. 5441 

160 

10. 5000 

- 3. 20Gd 

ltl 

1C. 344 7 

-2.7450 

162 

10. 2059 

-2.2944 

163 

10. 0792 

-1. 8371 

164 

9.9607 

-1.3701 

165 

9. 8457 

-.5182 

166 

9. 7 2C3 

-.4566 


FRtwUENCY= 5253.0 Mm2 
WAVELENGTH* 5.71 CM. 




KNTPLT = 


2 


NJK8ER OF POINTS utSCRIiHNG Tht CYL INcfcR* le>6 


GEOMETRY 

Of CYLINDRICAL CROSS 

SECTION 

DR [ V IN G POINT 

VOLTAGES 

POINT 

Af «J VL ■ 

Y t *VL, 

Of a V L . 

RE ( V J i VCLTS 

IM( VI , VOLTS 

1 

1.681 0 

O.OCOO 

. C4 63 



2 

1.0609 

. 046 5 

.0483 



3 

1. 6559 

■ 093 C 

. C403 



4 

1.6429 

. 1395 

• C 12 5 



5 

1.6356 

.1516 

.0124 

1 . 0000 

0. OOOC 

6 

1.6363 

.1635 

.0607 



7 

1.6200 

.2215 

.0603 



e 

1.6039 

.2800 

. C6C3 



9 

1. 5t78 

.333 1 

. L 6 C 7 



10 

1.5715 

• 3 9b6 

.0124 



u 

1. 5682 

.4085 

.0125 

-1.0000 

3m 0 C D 0 

12 

1. 5648 

.4205 

.0483 



13 

1.5520 

.4670 

.0463 



14 

1.5389 

.5135 

. 0433 



15 

1. 5260 

■ 5 60 C 

.0912 



16 

1. 5021 

• 6480 

■ C912 



17 

1.4785 

.7360 

• C512 



18 

1.4549 

.3241 

. 0912 



15 

1.4307 

• 912 C 

.0911 



20 

1.4056 

.9996 

.0511 



21 

1.3790 

1.0868 

. C 3 80 



22 

1.3516 

1.1704 

. 0880 



23 

1. 2223 

1.2 53 4 

.0881 



24 

1.2912 

1.335 6 

.0301 



2 5 

1.2533 

1.4175 

. CB77 



26 

1.2234 

1.4 9B3 

• CE77 



27 

1. 1564 

1.5776 

• Cb77 



28 

1. 1463 

l.o55d 

• Co 77 



25 

1. 1043 

1. t j.25 

• Oa 53 



30 

1.0599 

1. 8054 

• 005 3 
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31 

1.0125 

1.8764 

32 

. 9626 

1.9455 

33 

. 9100 

2.0125 

34 

. 8599 

2.071 8 

35 

. 3079 

2. 1295 

36 

. 7546 

2.1861 

37 

. 7000 

2.241 7 

36 

. 64 i 5 

2.2993 

39 

.5012 

2.3543 

40 

.5162 

2.406 7 

M 

.4515 

2.4535 

42 

. 3985 

2.4846 

43 

. 343.1 

2.5119 

44 

. 2861 

2.5354 

45 

.2275 

2.555C 

46 

. 1715 

2. 5698 

9 7 

.114 3 

2. 5 BOB 

43 

. 0575 

2. 5676 

49 

O.COOO 

2.5900 

50 

-.3575 

2.5876 

51 

1148 

2.58C8 

52 

-.1715 

2. 5696 

2 3 

-.2275 

2.5550 

56 

-.2861 

2.5354 

55 

3432 

7. 5119 

56 

-. 3965 

2.4846 

57 

-. 4515 

2.4535 

58 

-.5162 

2.4067 

59 

-.561 2 

2. 3148 

60 

-.6415 

2.2993 

61 

-.7 000 

2,2417 

6*. 

-.7 546 

2, 1661 

b 3 

-.6079 

2. 1295 

64 

-.3599 

2.0718 

65 

-.910 0 

2.0125 

66 

— » S 62 6 

1.9455 

67 

-1.0126 

1. 8764 

68 , 

-1.0599 

1.8054 

69 

-1. 1 C43 

1. 732 5 

70 

-1, 146B 

1.6558 

71 

-1.1664 

1. 5776 

72 

-1. 2235 

1.4980 

73 

-1. 2583 

1.4175 

74 

-l. 251 1 

1.3356 

75 

-1.2221 

1.2534 

76 

-1. 3514 

1. 1703 

77 

-1. 3790 

1.0868 

78 

-1. 4060 

.9997 

79 

-1.4316 

.9123 

80 

-1.4562 

.8245 

61 

-1.4759 

. 7365 

Hl 

-1. 5C31 

.6483 

63 

-1. 5260 

• 5 60 C 

84 

-1. 5340 

.5135 

85 

-1. 5520 

.4670 

bb 

-1.5646 

.4205 

b7 

-1. 5682 

.4085 

68 

-1. 5715 

. 396 6 

89 

-1. 5878 

. 3 3 B 1 

90 

-1.6039 

.2600 

91 

-1.62C0 

.2219 

92 

-1. 6363 

.1635 

93 

-1. 6396 

.1516 

94 

— 1. 642 9 

.1395 

95 

-1. 6559 

.0930 

96 

-1,6689 

.0465 

97 

-1.6818 

0.0000 

98 

-1. 7023 

-.0803 

99 

-1. 7230 

-.1607 

100 

-l. 7431 

-. 2412 

101 

-1.7639 

-.3215 

102 

-1. 7860 

-.4015 

103 

-1. 9103 

-.4811 

104 

-1. 8375 

-. 5600 

105 

-1. 8598 

-.6202 

106 

-1. 8791 

-.6611 

107 

-1. 8900 

-• 74j 8 

106 

-1. B391' 

-. 8012 

109 

-I. 8774 

-.8577 

110 

-1. 8550 

-.9100 


. 0853 
.085*: 

• C7 76 
. C776 

• C77 6 
, C780 
.0821 
. C820 
.0817 
. 0815 
. CfclS 
. Ct 16 
.0617 
. C6 1 8 
. C579 

• C5 7 8 
. C577 
. C5 76 

• C5 76 
.0577 

• C578 
. C5 79 

• Ct 1 0 
.0617 
. Co 16 

• Cc 15 
.0815 
.C6i7 
.0820 

• Cell 

• C7 60 
» C 7 7 1 

• C 7 76 

• C7 76 
. C 852 

• CC55 
. 0853 
.0653 
. 0877 
.0877 
. 0877 
. 0677 
. C881 
.0881 
.08 80 

• Co 80 
.0911 
.0911 

• C611 
.0912 
.0912 
. 0912 
. 0983 
. C463 
.0985 
.0125 

.0129 -l.COOC 

. 0607 
.0805 
. C603 
. 0607 

• C129 

.0125 1.0000 

. 0983 

. 0983 

. C9 83 

■ C630 

. C829 

.0829 

« C630 

. 083C 

.0832 

.0835 

. C642 

. 0638 

. 0636 

.0574 

. 0577 

• 05o9 
.0822 


0 . 0000 


0. 0000 
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111 

-1. 8040 

-.9745 

.0842 

112 

-1.7374 

-1.0260 

.0856 

113 

-1. 6625 

-1.0675 

.0943 

114 

-1.5762 

-1.1054 

.0927 

115 

-1.4887 

-1.1362 

.0924 

116 

-1.4000 

-1.1620 

. C890 

117 

-1.3136 

-1.1836 

• Co93 

118 

-1.2263 

-1.2026 

.0895 

119 

-1,1 384 

-1.2192 

.08 96 

120 

-1.0500 

-1.2338 

. 0862 

U1 

-. 9627 

-1.2463 

.0801 

122 

-. 0753 

-1.2571 

.0880 

123 

—.7877 

-1. 2663 

.0880 

124 

-.7000 

-1.2740 

. C676 

125 

-.6126 

-1.2803 

.0876 

126 

-.5251 

-1.2855 

. 0077 

127 

-.4376 

-1.2903 

.0077 

126 

-. 3500 

-1.2950 

.0876 

129 

-.2625 

-1.2999 

. 0876 

130 

-.1750 

-1.3044 

.0876 

131 

-.3 87 5 

-1.3077 

. 0675 

152 

O.COC'O 

-1.3090 

. 0875 

133 

. C 875 

-1.3077 

.0076 

134 

.1750 

-1.3044 

.0876 

135 

.2625 

-1.2999 

. 0876 

lib 

.3500 

-1,2950 

.0877 

157 

. 4 j76 

-1.2903 

.0877 

138 

.5251 

-1.2855 

* Cc 76 

139 

.6126 

-1.2803 

.0876 

140 

.7000 

-1.274C 

• 0880 

141 

.7377 

-1, 2663 

. 0 680 

142 

.0763 

-1.2671 

.0881 

143 

.9627 

-1.2463 

• Cb 0 2 

144 

1.0500 

-1. 2338 

. cast 

145 

1. 1384 

-1.2192 

. 0395 

146 

1.2263 

-1.2026 

. 0343 

147 

1.3136 

-1. 1B36 

.08 53 

148 

1.4000 

-1.1620 

. >jS 24 

149 

1. 4BS7 

-1.1362 

.0927 

150 

1. 5762 

-1. 1054 

.0443 

151 

1.6625 

-1.0675 

.0856 

152 

1.7374 

-1. 02 SC 

.0842 

153 

1. 8040 

-.9745 

. 0822 

1 54 

1. 8550 

-.9100 

. 05 65 

15 5 

1.8774 

-.8577 

. 0577 

156 

1. 8841 

-.3012 

.0574 

1 57 

1. 8900 

-.7438 

.0636 

150 

1.8791 

-.6811 

. 0638 

1 59 

1. 0598 

-.6202 

. C642 

160 

1.6375 

-. 580C 

.0835 

161 

1.8103 

-.4611 

. C b32 

162 

1.7860 

-.4 015 

• Vr8 jO 

163 

1. 7639 

-.3215 

. C0 30 

164 

1.7431 

-.2412 

. 0029 

165 

1.7230 

-.1607 

. 0829 

166 

1. 7C28 

-.0803 

. 0830 


RADIATION PATTERN (RELATIVE) 


PHI, LiQG. 

RE (6PH) 

IV ( EPM 

MAG 16PM 

PHASE, 06G . 

0.0 

-3. 5456686-01 

1. 7965826-C1 

3. 97503 5E-01 

153.12 

1.0 

-3.5009786-01 

1.7614C7E-C1 

3,9 19107E-01 

153.29 

2.0 

-3.5469106-01 

1.6S7B53E-C1 

3. 91525C6-C1 

154.95 

3.0 

-3. 6048296— C 1 

1.56C220E-C1 

3.92799CE-01 

156.60 

4.0 

-3.6410236-01 

1. 3493736-01 

3. 88302 1E-C1 

159.67 

5.0 

-3. 5 1 109it-0 1 

1. 0146426-01 

3.6 54759E-01 

163.88 

6.0 

-3. 32 693QE-0 1 

5. 7211476— C2 

3. 377734E-01 

170.2 5 

7.0 

-3. 12727 56-01 

8.974877E-C3 

3. 1 2 6563 E-Q 1 

178.36 

8.0 

-2. 81341 SE-01 

-4.23004X16-02 

2. B4504C6-01 

-171.45 

9.0 

-2. 3533216-01 

-0. 2864146-02 

2.4545406-01 

-160.60 

10.0 

-1.8135046-01 

-1.20929*6-01 

2. 1797226-01 

-146.30 

11.0 

-1.2514 746-01 

-1. 5737556-01 

2. 0 10725E-01 

-123.^9 

12.0 

-5.9427436-02 

-1. 8683446-C1 

1. 9605750-01 

-107.64 

13.0 

3.2451476-03 

-1. 6743S66-C1 

l. 874677E-01 

-89.01 

14.0 

6. 8806596-02 

-1.9166196-01 

0.0 3638 66- Cl 

-70.25 

15.0 

1. 2356246-01 

- 1. 8CC127E-C1 

2. 1633976-01 

-55.5 3 
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16.0 

1. 767228E-01 

-i. 556914c- Cl 

17.0 

2. 1151266-01 

-1. 176374E- Cl 

18.0 

2. 32.73 1 7E-01 

-8. 2517396-62 

19.0 

2.4302036-01 

-3. 80434 lfc-02 

20.0 

2. 44 69726-01 

2, 4077506- C4 

21.0 

2. 2520556-01 

3.0 72644E- C2 

22.0 

1. 62 b0 166-01 

5. 50 1 4 o 36- C2 

23.0 

1. 5311456-01 

6. 906347E-C2 

24.0 

1. 1916616-01 

6. 2602866- C2 

25.0 

8. 25901 16-02 

2.62J.34C6-C2 

26,0 

4. 4133116-02 

2.3276526-C3 

27.0 

U 57446 1L-Q2 

- 5. 15 56556- C2 

2 8. 0 

4.6571616-03 

- 1. 1 544 246- Cl 

29.0 

1. 1409666-02 

-1.5319536-01 

30.0 

3. 1517756-02 

-2. 61B2C96-C1 

31.0 

6. 4543646-02 

-3.6354636-01 

32,0 

1. 144466E-01 

-4. 4755 126-C1 

33.0 

l. 7397296-01 

-5. 2096t0E-0i 

34. 0 

2.40 200 2t-0 1 

-5. 8256 166-C1 

35.0 

5, li 34 686 -0 1 

-6. 375210E-C1 

36.0 

3. 8480736-01 

-6.6902366-C1 

37.0 

4. 3943556-01 

-6. 50 c4 79 6-0 1 

38.0 

4. 7440C26- 01 

-6. 9310506- Cl 

39,0 

4. 9733616-01 

-6. 86o^47t— Cl 

40.0 

5. 03846ot-01 

- 1. 5966 C4E-C1 

*•1.0 

4. 6551046-01 

-t. 1524556- Cl 

42.0 

4. C4i 0Q4E-0 1 

-5.8C5cl2E-Cl 

43.0 

3. 09 31 6 66 -0 1 

-5. 8 1 8665 6- Cl 

44.0 

1. 9107446-01 

-4. 8400106-01 

45.0 

3. 7965796-02 

-4. 459774E-C1 

46. C 

- 1. 2822306-01 

-4. 1 16424t-01 

47.0 

- 3, 22 56 0 9E-Q 1 

-2. 6?728t6-Cl 

48,0 

-5. 27 886 26-01 

-3. 7431576-Oi 

49.0 

-7.3554 546-01 

-3. 6160756- Cl 

50.0 

-9. 340522E-01 

- 3. 646851 Er Cl 

51.0 

-l. 1225466+00 

-3.6905756— Ci 

52.0 

-1, 2857996+00 

-2. 7167336-01 

53.0 

-1. 4205956+00 

-2.783142 6- Gi 

54.0 

-la 31 67116 + 00 

-3. 831850 E- 01 

55.0 

-1. 5787BC6+0G 

-8. 7305866-01 

56. C 

-1. 5894686+00 

-3. 5465256-01 

57.0 

-1.5&ei376+00 

-2. 165872E-Q1 

56.0 

- 1. 4 8 302 Ct +00 

-2.4341.486-01 

59. G 

-1,33 38126 +00 

-1.664d14 6-01 

60.0 

-1. 1 8 959 8E ♦ GG 

— 5.6124176-02 

61.0 

-9. 8517536-01 

7.45 al 84 E - 02 

62.0 

-7. 3342536-01 

2.2247C86-C1 

6 3,0 

-4. 9866596-01 

4, C44a 67t- Cl 

64.0 

-to 29 25 346- 01 

5. 9530856-C1 

65.0 

4. 3943116-02 

E , GO'S 5 1 66- C 1 

66. 0 

5. 124906E-Cil 

5. 0 37 5 C8E- 01 

67. C 

5a 7C70676-01 

1. 1 B18C1E+CG 

6 3.0 

3. 0361936-01 

1.351211E+CC 

65.0 

1. 0098146 + 00 

1. SOB 1 266 + GO 

70.0 

1. L742306 + 0C 

1. 6353 76t + C0 

71.0 

i. 29520 96+00 

1. 71C7 576 + CO 

72.0 

1.3764736+00 

1. 7584126+ CO 

73.0 

1.3752E7L+CC 

1. 75d 3 COE +C0 

74.0 

1.366722t+00 

l. 69 34 21 E ♦ CC 

75.0 

1. 3790396+00 

1. 5430 3 3E +00 

76.0 

1. 3307236+00 

1. 36045C6 + CC 

77.0 

1. 1256286+00 

1. 17Q242E+CC 

76.0 

9. 33 62 94E- 0 1 

9.C2C7176-C1 

79.0 

7. 29 1 52 3E-C 1 

6.G054266-C1 

80.0 

5. 0 344206-Oi 

2. 702 1 17 6- Cl 

61.0 

2.6804626-01 

-8.23fcb2tt-C2 

6 2.0 

2. 1 57123l-02 

-4.40231 66-C1 

63.0 

-2. 0942 59E-01 

-7. 935526E-C1 

e*.o 

-4. 3432656-01 

-1. 1 30 306 6* CO 

65.0 

-6. 3951 89E-01 

-1.43B8t:2E + CC 

66. 0 

-8. 1 8 1059E-0 1 

-1. 708255E+CC 

87.0 

-9.6411738-0; 

-1.9290276+CC 

88.0 

-1. 0731 896+00 

-2.C94321E+C0 

B5.0 

-1. 1402766+00 

-t. 1950C4t* 00 

90.0 

-1* 16 29296 + 00 

-2.229C81E+C0 

91.0 

-1. 1446636+00 

-2. 15864CE + C0 

92.0 

- 1. 06 1 7 85 1 + 00 

-2.1015C76+C0 

93.0 

-9.7658566-01 

-1.9355 15E + C0 

94.0 

-8. 3394736-01 

- 1. 7217696 + 00 

95.0 

-6. 5808576-01 

-1*4549666+00 


t. 3 5 522 3 E- Cl 

.-41,38 

2. *202506-01 

-29.08 

2. 4692 75 b- 01 

-19.52 

2. 45580CE-C1 

-8.90 

2.4489726-01 

.06 

2. 272515 E- 01 

7.77 

1.92C916E-C1 

17.89 

1.67970CE-C1 

24.28 

1. 346268 E- Cl 

27.71 

9. 04654 IE- C2 

2 3.60 

4. 4 1 9*4 6E- 02 

3.02 

5.52C803E-02 

-69.04 

i. 1553636-01 

-87.69 

1. 925355 E- Cl 

-86.62 

2. 835778E-01 

-83.62 

3. 6 9625 2 E-0 1 

-79.9 4 

4.6196496-01 

-7 5.6 5 

5.4924316-01 

-71. 53 

o. 3013826- Cl 

-67.59 

7.059250 E- Cl 

-63.90 

7. 7 1 796 2 6-C 1 

-60.09 

3. L67639E-C1 

-57.54 

6. 39 5 14 IE- C 1 

-55.61 

o. 47990 C E-C 1 

-54.09 

8. 3006956- Cl 

-52.63 

7. 7711326-01 

-52.03 

7.074674E-C1 

-55.1 5 

6. 152716 E- Cl 

-59.32 

5. 202522 E- Cl 

-68.46 

4. 475502 E- 01 

-65. 1 3 

4. 3 1150 26-01 

-1C7.3C 

3. 043597 E- 01 

-129.76 

6.471331 E-0 1 

-144.66 

6. 1562626-01 

-153.02 

1.O02721E+0C 

-158.67 

1. 1 B1657E+CC 

-161.80 

1. 3384406+00 

-163.83 

1.47C493E+C0 

-165.09 

I. 56 63C6E + CO 

-165.94 

l. 623414E+CC 

-166.53 

1.6285986+00 

-167.41 

1. 5 85974 E+CO 

-163.51 

1. 503661 E+CO 

-170.49 

i. 364C08E+CO 

-172.99 

1. 1913216+ CC 

-177.30 

9. 8799426-01 

175.67 

7. 884747E-C1 

162.3 5 

&• 4 21045 6-01 

140.95 

6, 3 7521 16-C1 

111.06 

6. o ie68et-ci 

86.7 2 

1. 0 36556 E + CO 

72.46 

i. 3 12367E+ OC 

64.22 

1 , 5 747 8 5 fc+ 00 

59.1 C 

1. 8149936+00 

56.19 

013332E+0C 

54. 32 

2. 1457856+00 

52. 37 

2. 223359E+CC 

51.94 

2. 26391 lt + OO 

52.59 

2.186768E+0C 

50. 69 

t. 065466E+0C 

4 6.21 

1. 90 306 2 E *00 

45.63 

1. 6 2373 2fc + OC 

46. 1 1 

1. 298924E+0C 

44.05 

9. 44624 6 E- Cl 

39. *8 

5.7137406-01 

28.22 

t. 904 1 6 2 E- Ci 

-17.08 

4. 4 1094 3 E-0 1 

-86.42 

8.2C7231E-C1 

-104. 78 

1.2 1C88CE + CC 

-111.02 

1, 574242E+CC 

-113.96 

1. 8940526+00 

-115.59 

2. 1 56241E+0D 

-116.56 

2. 3532876+ CO 

-117.13 

2. 4 735146+ CC 

-117.45 

2. 5 142C1E+CC 

-117.55 

t.47876-4E + 0C 

-117.50 

2. 363557E + QC 

-117.24 

2.17151 16+00 

-116.73 

l. 912101E+C0 

-115.84 

1. 556875E+0C 

-114.34 
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96.0 

-4. 5465 3 1E-0 1 

-1. 14E618E*CC 

1. 2354O06+0C 

-111.60 

97.0 

-2. 31 04986-01 

-8. 1349eafc-Cl 

b. 456738E-01 

-105.86 

9 8.0 

5. 7809326-03 

-4.61^2816-01 

4.6126436-01 

-89. 2 8 

99. 0 

2. 47C e 6 26-0 1 

-1. C379746-C 1 

2.6798446-01 

-22.79 

100. 0 

4. 842157E-01 

2.4 8963 j6-Ci 

5. 4 4470 C E- C 1 

27.21 

101.0 

7. 1 2 6a 85E-0 l 

5.8014C46-C1 

9. 1892146-01 

39.15 

10 2.0 

9.2072C2E-O1 

6. 841296 6- Cl 

1. 276434E+C0 

43. 84 

103.0 

i. 1059636+00 

1. 1507^8E*C0 

1. 5960436+00 

46. 14 

109. 0 

1. 3309616+00 

1.3465716* CO 

1. 8947576+CC 

45.3 e 

10 5. 0 

l. 3032O2E+OG 

1. 6334826* CO 

2. 06 5 14 3 6 + 00 

47.95 

106. 0 

1. 395 5 OCfc ♦ 00 

1.686539E+UJ 

2. 1 8902 6E + GO 

50.3 9 

107.0 

1. 377322E +00 

1, 7998cbE+0Q 

2.2663926*00 

52. 5S 

100. 0 

1. 399204L + 00 

1. 75 1 7 24b* OC 

2. 2419436*00 

51.33 

109.0 

1, 3236996+00 

1. 7C95 126 * CO 

2. L 6.200 56 + OC 

52.25 

110.0 

1.2049596+00 

1.6403 CZ6+CC 

2.035721E+CC 

53.71 

111.0 

1 • C4434 1 E * 00 

1. 5194966*CG 

1. 8437816+CO 

55.50 

112. 0 

6.46 841 BE -01 

1. 36 62 61 E *Cu 

1. 6C74236* CO 

58.2 1 

11 3.0 

fc. 1137986-01 

1. 2C065C6+ CO 

1. 347 343E* C C 

63.01 

119. 0 

3. 54 6816E-01 

1# C10952E + CO 

1* 07 14 326 +0C 

70.66 

115.0 

b. 8733366-02 

8* £565226 — Ci 

8. 3 04C67E-C 1 

83. 87 

116.0 

-1. 871446E-01 

6.2273926-Cx 

6. 5C266CE-01 

106.73 

117.0 

-4. 5860866—0 1 

4. 3361516-C1 

fc. 3114496-01 

136. 60 

116.0 

-7. 163194E-01 

2. 6276S5E-01 

7. 6299496- Cl 

159.86 

119.0 

-9. 5214766-01 

1. C 544 Cl. 6- Cl 

9. 5796SCE-C1 

173, 68 

12 0.0 

-1. 1617986*00 

-2.5196146-06 

1. 16207 16+00 

-170,7 6 

121.0 

-1. 331231E + 0C 

-1. 3595136-C1 

1* 33615 5 6+ C C 

-174.1 7 

122.0 

-1.466476E*0C 

-2. 187691 6- Cl 

i, 4827C4E+CC 

-171.52 

123. 0 

-1. 5479 65E ♦ OC 

-2. 8813076-01 

1.574572E+CC 

- 169. 4fc 

124.0 

- 1. 535 7 9 LE + 00 

-3.2802C. r e-Cl 

1, 61 936 1 6+ C C 

-168.31 

125. 0 

-1. 5614136*00 

-3. 53Q47fc£-Ci 

1. 620347E+0C 

-167.42 

126.0 

-1. 527352E*00 

-3. 6024236-C1 

1.5692616*00 

-166.73 

127.0 

— 1.4j516CE*00 

-3. 575585L-C1 

1.47903 1E+0C 

- 166.0 1 

126.0 

-1. 304754E+CO 

-3. 531010E-C1 

1. 3516896+CC 

-164.86 

129.0 

-1. 1455256*00 

-3.5256256-01 

1. 1S8558E*C0 

- 162.89 

130.0 

-9. 6321 14E-0 1 

-3. 5029S6fc-Cl 

1. 0221136*00 

-159.96 

131.0 

-7. 63 93 95E-C 1 

-3. 49 32 25 E- Cl 

b» 40C16 2E-01 

-155.43 

132.0 

-5. 5760466-01 

-3. 6390 6^6- Cl 

fc.fc 5645S6-C1 

-146. 87 

133.0 

- 3. 526a33E-01 

-3. 79 1096 E- 01 

5. 17793C6-C1 

-132.9 3 

134.0 

-1. 579145E-01 

-4.0467816-C1 

4. 342979E-C1 

-111.3 2 

135.0 

9. 45 210 2E-03 

-4.4057196-Ci 

4. 4 067 3 2E-0 1 

-88.77 

136.0 

1, 6437036-01 

-4. 8008146-Ci 

5.07443CE-01 

-71. 1C 

137.0 

2. 84923SE-01 

-5. 294 165E-C1 

6.0121B3E-C1 

-61.71 

136.0 

3. 8253836-01 

-5. 7953206-01 

fc. 9444296-01 

-56.57 

139.0 

4. 505897E-01 

-t, I9 60 146-C 1 

7. 6627596-01 

-53.98 

140.0 

4. 8 77347E-01 

-C. 6183446-C1 

a. 221374E-C1 

-53,61 

141.0 

4. 8397446-01 

— 6. 907Cj 8E-C1 

8.433B78E-01 

- £4* 9 6 

142.0 

4.6340766-01 

-6.9687726-01 

o. 3855596-01 

-56.45 

143.0 

4. 3051176-01 

-fc, 9873306-C1 

0. 2C7L2CE-C1 

-58.36 

144.0 

3. 7753546-01 

-fc. 791 9 75 6- Cl 

7.7707296-01 

-60.93 

145,0 

3. 0624176-01 

-fc. 4987246-01 

7, 184136E-C1 

-fc4* 7 7 

146. C 

2. 3472456-01 

- 5. 9727 656- Cl 

b. 4 1745 5 6-01 

-68.55 

147.0 

1.6864146-01 

— 5* 3820 13 E- Cl 

5. 64004 1 E-C 1 

-72.60 

148.0 

1. 08 8462E-0 1 

-4. 6733186- Cl 

4. 796401 E-C 1 

-76.89 

149. 0 

5. 8166106-02 

-2. 8613C36-01 

3. 904 86 6 6-0 1 

-81.43 

150.0 

2*4115886-02 

- 3, 062 8 65 6- C 1 

3.072364E-01 

-65.50 

151.0 

24 81 7279E- 03 

-2. 19B870E-C1 

2. 1 9905CE-C1 

-89.27 

152 • 0 

-5. 29 1 1 C 36—03 

- 1* 442 7906- Ci. 

1.44376CE-01 

-52.10 

153.0 

8. 46643 86-03 

218960E-C2 

b. 2626576-C2 

-84.10 

154. C 

5. 171 9G66-GZ 

-2. 99i46j£-U2 

4. 3 fcC71 5E- C2 

-43.33 

155.0 

fc* 9546 2 36-0 2 

2. 5294156-Cj 

6. 55942 1F-C2 

2.08 

156.0 

1. 0509146-01 

2.7683 9C6-C2 

1* 0 8676 fc 6- 01 

14.76 

157.0 

1. 3 d 6 b7feE-0 1 

2. 212106b- C2 

1. *258776-01 

13.43 

158.0 

1.68396 86-01 

2.218753 t“C2 

1.698522E-C1 

7. 51 

159.0 

2. 11243 66-01 

-i. 93=2136-u3 

2.1 13 57 46-C1 

-1.88 

1 6 C . 0 

2. 31543 86-01 

— 3. 8030826-02 

2. 2464626-01 

-9.3 3 

161.0 

2. 30 565 3E-0 1 

- 7, fc b 8746 6- C* 

2. 43C669E-01 

-13.44 

162.0 

2. ^.1 4t 5 56 - 0 1 

-1. 2196476-C1 

2. 5 28 38 5 E- 01 

-28*85 

163.0 

2. C153676-01 

-1. 5756 19t-Cl 

2. 558179E-01 

-36.02 

164.0 

1. 6799116-01 

-1. 9 59 771 t- Cl 

2. 5812416-Cl 

-49.40 

165.0 

1. 1604156-01 

-2. 20c5 7dc-Cl 

2. 45210CE-C1 

-62.26 

166. 0 

6. 2467376-02 

-2. 3262 L5E-C1 

2. 40 86 296-01 

-74.9 7 

167.0 

-2. 1827366-03 

-2. 2ddoCo6- Cl 

2.2639126— Cl 

-90.55 

166.0 

-6*4069996-02 

-2.2777976-01 

2.3t6190E-CL 

-105.71 

169.0 

- 1. 29 32 C 56- 01 

- 1. 98 02 34 6- Cl 

2. 2 fc 51C26-C1 

-123. 15 

170.0 

-1. 6510366-01 

-1.61CC376-01 

l. 4522746-01 

-138.98 

171.0 

-2. 3896606-01 

- 1. 22 141C6- C 1 

2.683713E-01 

-152.93 

172.0 

-2. 8490316-01 

-8. 0655 a 3 t-C2 

2.9fcC9956-01 

-164.19 

173.0 

-3. 1629C9L-01 

-2. 82fc3926— C2 

3. 1765136-01 

-174. 89 

174.0 

- 3. 36487 76 - 0 1 

2. 121065E-C2 

3. 371 55 56-01 

176.39 

175.0 

-3. 54 89 8d6-Ql 

fc .6 62 1 3 j t-C2 

j. 6 1C9776-C1 

16 9. 3 7 

176.0 

-3. 08016^6-01 

1. 0137696-Cl 

J. 8172406-01 

164,60 
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177.0 

>3, 6422638-01 

1. 2402 76 £- Cl 

3. 8476776-0 

161.15 

17b. 0 

- 3o 5d 1 5 6 8E - 0 1 

1. 3 524 75 6- C 1 

3. 8264526-0 

159. 31 

179.0 

-3. 5 j 50548- 01 

1. 46l97tt-Ci 

j. 8254 3 8 E- Cl 

157,5 3 

190.0 

-3. 5792288-01 

1.5050216-C1 

3. 882777E-01 

157.19 

181.0 

-3. 64 62788-01 

1. 4936108-0 

3. 9421836-01 

15 7.74 

182.0 

-3. 74 83 7 dt-01 

1. 3635C1E-C1 

3.9 8 866 8E-0 1 

160.01 

189.0 

-3. 8015756-01 

1. 2216666- Cl 

j. 9530456-0 

162,10 

184.0 

-3. 92 32 59E- C 1 

1. C9E0c86-Ci 

4. 0 7402 9 6-C 1 

16 4.36 

18 5.0 

-4. 1204098-01 

1.131774E-C1 

4. 2 730146-C1 

164.64 

186,0 

-4,3 815 938-01 

1. 222616E-C1 

4. 5489778-01 

164.41 

187.0 

-4® 6 j S c 2 7E-0 1 

1. 3588926-01 

4. 833575 E-Cl 

16 3. 6 7 

1B8.0 

-4.8343368-01 

1.6370148-0 

5. 151366 8- Cl 

161.47 

189.0 

-4. 9659218-01 

2. C953546-C1 

5.4058718-0 

15 7.1 7 

190.0 

-5. 03 7i 286- 0 1 

2.6841266-0 

5. 7076446-01 

151.95 

191.0 

-5.0356638-01 

3. 3546 1 7 8- Cl 

6.0675028-01 

146.43 

192.0 

-4. 9961686-01 

4. 1796 146-0 

6. 515432E-01 

140. 10 

193.0 

-4. 6449538-01 

5. C5 55 52 6-0 

6. 8654588-01 

132.5 8 

194.0 

-4. 3371 596-01 

C. C 5 i086£- C 1 

7.4449036-0 

125.63 

195,0 

-3. 35769C6— 01 

7.0421 2ofc-Ci 

6. 02 95298-01 

110.71 

196. C 

2534936-01 

8. 117152 E— Cl 

b. 7449066-01 

111.84 

197.0 

-2. 5047838-01 

S.C963C7E-01 

9. 4 34 86 5 E-01 

105.40 

198.0 

-1. 74 39406-C1 

1 . 00324-6 * CC 

1. 0182676 + 0C 

95.86 

199,0 

-8.4234058-02 

1, C5356C6+CC 

1. 097 195 6+00 

94.4 0 

200.0 

5.25 82396-03 

1. 1790296+00 

1.17585C6+OC 

89.74 

201.0 

9.4320966-02 

1.245166E+CC 

1. 24C 735E + 00 

35.67 

202.0 

1.9309896-01 

1. 2856S3E+C0 

1. 3C011 8E+0C 

ei.46 

203.0 

2. 8409576-01 

1* 33C5 25E+CC 

1.3605178+00 

77.95 

204.0 

3. 7069758-01 

1. 358062E+CC 

1. 40774 £ E + CC 

74.73 

205. 0 

4. 49 116 6t— 0 1 

1. 3656 1 u E+ CO 

1. + 3757^8+00 

71.00 

206.0 

5. 32 74 BSE -01 

i. J47020E+C0 

i. 446545t+CC 

68.42 

207. 0 

6. C6 8804c-0 1 

1.21466CE+C0 

' 1. 4475 76E + C0 

65.2 2 

208. 0 

6.7914478-01 

1.259554E+CC 

1. 4 3C58 4 t + CO 

61.67 

209.0 

7. 4291638-01 

1. 192122E+CC 

1. 4C605C6+C0 

58.06 

210.0 

b. DO 23438 -0 1 

1. 104071E+CC 

1.3635308+00 

54.07 

211.0 

8. 61 15078-01 

9. 9204 73E-C 1 

1.31367 4 6+CC 

49.04 

212.0 

9, 1525958-01 

6.644224E-C1 

1. 25893EE+0C 

43.36 

213.0 

9. 70G 5 07t-0 1 

7. 1756686-01 

1. 2C66C 16 + 00 

36.49 

214.0 

1. C22695E 800 

5. 5391C76-C1 

1. 163241E+0C 

28.44 

213.0 

1. 06 52 438 800 

3.8C3762E-C1 

1. 12111 Et + CC 

19.65 

216.0 

1. 1109806+00 

1.9797 72 E-Cl 

1. 1 2848 2 6 + 0 C 

10. 10 

217.0 

1. 14 30 C 3E ♦00 

1. 7CZ921L-C3 

1. 1430046+00 

.09 

216.0 

1. 1691428+OC 

-2.031C61E-01 

1. 18665 26 + 00 

-9.86 

219.0 

1. 1787S5E+00 

- 3. 9804 3 6E— Cl 

1.244185E+CC 

-13.66 

220.0 

1. lo5005E+CC 

-5. 8O2460E-O1 

1.31 944CE ♦ CC 

-26.09 

221.0 

1. 1771266+00 

-7.6388006-01 

1. 4C226CE+GC 

-32. 98 

222.0 

1. 1434818 + 00 

-5.3 1 Cb 956- Cl 

1.47461 16+00 

-39, 1 5 

223.0 

1.0967328+00 

-1. 0772 1 3 t+CC 

1. 5372736+C0 

-44. 4S 

224. C 

1.0291216+00 

-l. 1915626 + CO 

1. 57445 6E+ 00 

-49.13 

22 5, 0 

9, 32 1 3 628-01 

-1* 23 J8C4 c+ CO 

1. 5E65166+C0 

-54.02 

226.0 

8. 1612396-01 

-1.334578E+CC 

1. 56^6806+00 

-53.56 

227. 0 

6. 7422868-01 

- 1. 36 26 258 + CC 

1.5 2031 5E + CC 

-63.67 

223. 0 

5. 1002426-01 

-1. 3557C3E+CC 

1.44847L6+C0 

-69.3 0 

229.0 

3. 3 5t 1 1 8£-Oi 

-1.3157 26 6 + CO 

1 . 3 5785 56 + CC 

-75.65 

230.0 

1. 3961 06E-O1 

— 1.2368106+ CO 

1.2 4466 5 E ♦ CC 

-83.56 

231.0 

-6.401092E-02 

- 1.132654E +00 

1. 1 3446 1 E + 00 

-93.23 

232.0 

-2. 674669E-01 

-9,9515 506-0 

1. O34335E+00 

-104.99 

233.0 

-4. 75331 7E-01 

-8.4372166-01 

9.6041288-01 

-119.40 

234.0 

- 6. 7867 1 IE-31 

-6* 677401 E- 01 

9.5208756-01 

-135.47 

235.0 

-3, 631469E-01 

-4. 8 515 76 6- Ci. 

9. 945134E-01 

-150.80 

236.0 

-l.Oilt 468+00 

-2.9311276-01 

1. 072092E+CO 

-164. 1 3 

237.0 

-1. 1700628+00 

- 1 • 079C 25t - Cl 

1. 1750276+C0 

-174.73 

238.0 

— 1. 26 63 356+00 

6.6891298-C2 

1. 268 1006+ OC 

176.90 

239.0 

-1.33167 5E+ 00 

2. 33O05dt-Cl 

1. 352791E+C0 

169.06 

240.0 

-1* 3508666+00 

3.8210476-0 

1* 4038676 + CC 

164.21 

241.0 

-1. 3281196+OC 

5.091730E-C1 

1. 42237 76 + 0C 

159.02 

242.0 

-1. 254046E + 00 

6.05^0558-0 

1. 3924898+00 

154.23 

243.0 

-l. 14032CE + 00 

6. 7 546C 88- Ci 

1. 3 2579CE+CC 

149.37 

244.0 

-9. 3009058-01 

7. 16 3641 6- Cl 

1.212S82E+C0 

143.84 

245.0 

-7. 7771 84E-01 

7. 2749 74E-C1 

1. 36454 1E + CC 

136.91 

246. 0 

-5.6305 158-01 

7. 12 54 82t-0 1 

9. 0 8 158 5 E- G 1 

128. 32 

247.0 

-3. 1566456-01 

6. 7478486- Cl 

7.4456888-01 

115.07 

248.0 

-6. 369484E-02 

6. 1615358-01 

6.2142648-01 

9 5.80 

249.0 

1.9578076-01 

5.36CC55E-C1 

5. 7C64556-C1 

69.93 

25 0.0 

4. 48638 Ot- 01 

4.8916416-0 

t>. 2734246-01 

44.3 5 

251.0 

6. 72 92 07E-0 1 

3. 34 fcZ 75 fc- C 1 

7. 5161566-01 

26.4 5 

252.0 

8. 8478656-01 

2. 3306656-01 

5. 1 456046-C1 

14.76 

253.0 

1. 08C0476+CO 

S.C31C52b-Cc 

1.0833166+OC 

4.78 

254.0 

1. 15792 06 +0C 

2. 64 62 22 E- C2 

1. 158495E+0C 

1.30 

255. 0 

1.2093768+00 

2.5173706-C4 

1.2C92768+C0 

.02 
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96.0 

-4. 5465 3 1E-0 1 

-1. 14E618E*CC 

1. 2354O06+0C 

-111.60 

97.0 

-2. 31 04986-01 

-8. 1349eafc-Cl 

b. 456738E-01 

-105.86 

9 8.0 

5. 7809326-03 

-4.61^2816-01 

4.6126436-01 

-89. 2 8 

99. 0 

2. 47C e 6 26-0 1 

-1. C379746-C 1 

2.6798446-01 

-22.79 

100. 0 

4. 842157E-01 

2.4 8963 j6-Ci 

5. 4 4470 C E- C 1 

27.21 

101.0 

7. 1 2 6a 85E-0 l 

5.8014C46-C1 

9. 1892146-01 

39.15 

10 2.0 

9.2072C2E-O1 

6. 841296 6- Cl 

1. 276434E+C0 

43. 84 

103.0 

i. 1059636+00 

1. 1507^8E*C0 

1. 5960436+00 

46. 14 

109. 0 

1. 3309616+00 

1.3465716* CO 

1. 8947576+CC 

45.3 e 

10 5. 0 

l. 3032O2E+OG 

1. 6334826* CO 

2. 06 5 14 3 6 + 00 

47.95 

106. 0 

1. 395 5 OCfc ♦ 00 

1.686539E+UJ 

2. 1 8902 6E + GO 

50.3 9 

107.0 

1. 377322E +00 

1, 7998cbE+0Q 

2.2663926*00 

52. 5S 

100. 0 

1. 399204L + 00 

1. 75 1 7 24b* OC 

2. 2419436*00 

51.33 

109.0 

1, 3236996+00 

1. 7C95 126 * CO 

2. L 6.200 56 + OC 

52.25 

110.0 

1.2049596+00 

1.6403 CZ6+CC 

2.035721E+CC 

53.71 

111.0 

1 • C4434 1 E * 00 

1. 5194966*CG 

1. 8437816+CO 

55.50 

112. 0 

6.46 841 BE -01 

1. 36 62 61 E *Cu 

1. 6C74236* CO 

58.2 1 

11 3.0 

fc. 1137986-01 

1. 2C065C6+ CO 

1. 347 343E* C C 

63.01 

119. 0 

3. 54 6816E-01 

1# C10952E + CO 

1* 07 14 326 +0C 

70.66 

115.0 

b. 8733366-02 

8* £565226 — Ci 

8. 3 04C67E-C 1 

83. 87 

116.0 

-1. 871446E-01 

6.2273926-Cx 

6. 5C266CE-01 

106.73 

117.0 

-4. 5860866—0 1 

4. 3361516-C1 

fc. 3114496-01 

136. 60 

116.0 

-7. 163194E-01 

2. 6276S5E-01 

7. 6299496- Cl 

159.86 

119.0 

-9. 5214766-01 

1. C 544 Cl. 6- Cl 

9. 5796SCE-C1 

173, 68 

12 0.0 

-1. 1617986*00 

-2.5196146-06 

1. 16207 16+00 

-170,7 6 

121.0 

-1. 331231E + 0C 

-1. 3595136-C1 

1* 33615 5 6+ C C 

-174.1 7 

122.0 

-1.466476E*0C 

-2. 187691 6- Cl 

i, 4827C4E+CC 

-171.52 

123. 0 

-1. 5479 65E ♦ OC 

-2. 8813076-01 

1.574572E+CC 

- 169. 4fc 

124.0 

- 1. 535 7 9 LE + 00 

-3.2802C. r e-Cl 

1, 61 936 1 6+ C C 

-168.31 

125. 0 

-1. 5614136*00 

-3. 53Q47fc£-Ci 

1. 620347E+0C 

-167.42 

126.0 

-1. 527352E*00 

-3. 6024236-C1 

1.5692616*00 

-166.73 

127.0 

— 1.4j516CE*00 

-3. 575585L-C1 

1.47903 1E+0C 

- 166.0 1 

126.0 

-1. 304754E+CO 

-3. 531010E-C1 

1. 3516896+CC 

-164.86 

129.0 

-1. 1455256*00 

-3.5256256-01 

1. 1S8558E*C0 

- 162.89 

130.0 

-9. 6321 14E-0 1 

-3. 5029S6fc-Cl 

1. 0221136*00 

-159.96 

131.0 

-7. 63 93 95E-C 1 

-3. 49 32 25 E- Cl 

b» 40C16 2E-01 

-155.43 

132.0 

-5. 5760466-01 

-3. 6390 6^6- Cl 

fc.fc 5645S6-C1 

-146. 87 

133.0 

- 3. 526a33E-01 

-3. 79 1096 E- 01 

5. 17793C6-C1 

-132.9 3 

134.0 

-1. 579145E-01 

-4.0467816-C1 

4. 342979E-C1 

-111.3 2 

135.0 

9. 45 210 2E-03 

-4.4057196-Ci 

4. 4 067 3 2E-0 1 

-88.77 

136.0 

1, 6437036-01 

-4. 8008146-Ci 

5.07443CE-01 

-71. 1C 

137.0 

2. 84923SE-01 

-5. 294 165E-C1 

6.0121B3E-C1 

-61.71 

136.0 

3. 8253836-01 

-5. 7953206-01 

fc. 9444296-01 

-56.57 

139.0 

4. 505897E-01 

-t, I9 60 146-C 1 

7. 6627596-01 

-53.98 

140.0 

4. 8 77347E-01 

-C. 6183446-C1 

a. 221374E-C1 

-53,61 

141.0 

4. 8397446-01 

— 6. 907Cj 8E-C1 

8.433B78E-01 

- £4* 9 6 

142.0 

4.6340766-01 

-6.9687726-01 

o. 3855596-01 

-56.45 

143.0 

4. 3051176-01 

-fc, 9873306-C1 

0. 2C7L2CE-C1 

-58.36 

144.0 

3. 7753546-01 

-fc. 791 9 75 6- Cl 

7.7707296-01 

-60.93 

145,0 

3. 0624176-01 

-fc. 4987246-01 

7, 184136E-C1 

-fc4* 7 7 

146. C 

2. 3472456-01 

- 5. 9727 656- Cl 

b. 4 1745 5 6-01 

-68.55 

147.0 

1.6864146-01 

— 5* 3820 13 E- Cl 

5. 64004 1 E-C 1 

-72.60 

148.0 

1. 08 8462E-0 1 

-4. 6733186- Cl 

4. 796401 E-C 1 

-76.89 

149. 0 

5. 8166106-02 

-2. 8613C36-01 

3. 904 86 6 6-0 1 

-81.43 

150.0 

2*4115886-02 

- 3, 062 8 65 6- C 1 

3.072364E-01 

-65.50 

151.0 

24 81 7279E- 03 

-2. 19B870E-C1 

2. 1 9905CE-C1 

-89.27 

152 • 0 

-5. 29 1 1 C 36—03 

- 1* 442 7906- Ci. 

1.44376CE-01 

-52.10 

153.0 

8. 46643 86-03 

218960E-C2 

b. 2626576-C2 

-84.10 

154. C 

5. 171 9G66-GZ 

-2. 99i46j£-U2 

4. 3 fcC71 5E- C2 

-43.33 

155.0 

fc* 9546 2 36-0 2 

2. 5294156-Cj 

6. 55942 1F-C2 

2.08 

156.0 

1. 0509146-01 

2.7683 9C6-C2 

1* 0 8676 fc 6- 01 

14.76 

157.0 

1. 3 d 6 b7feE-0 1 

2. 212106b- C2 

1. *258776-01 

13.43 

158.0 

1.68396 86-01 

2.218753 t“C2 

1.698522E-C1 

7. 51 

159.0 

2. 11243 66-01 

-i. 93=2136-u3 

2.1 13 57 46-C1 

-1.88 

1 6 C . 0 

2. 31543 86-01 

— 3. 8030826-02 

2. 2464626-01 

-9.3 3 

161.0 

2. 30 565 3E-0 1 

- 7, fc b 8746 6- C* 

2. 43C669E-01 

-13.44 

162.0 

2. ^.1 4t 5 56 - 0 1 

-1. 2196476-C1 

2. 5 28 38 5 E- 01 

-28*85 

163.0 

2. C153676-01 

-1. 5756 19t-Cl 

2. 558179E-01 

-36.02 

164.0 

1. 6799116-01 

-1. 9 59 771 t- Cl 

2. 5812416-Cl 

-49.40 

165.0 

1. 1604156-01 

-2. 20c5 7dc-Cl 

2. 45210CE-C1 

-62.26 

166. 0 

6. 2467376-02 

-2. 3262 L5E-C1 

2. 40 86 296-01 

-74.9 7 

167.0 

-2. 1827366-03 

-2. 2ddoCo6- Cl 

2.2639126— Cl 

-90.55 

166.0 

-6*4069996-02 

-2.2777976-01 

2.3t6190E-CL 

-105.71 

169.0 

- 1. 29 32 C 56- 01 

- 1. 98 02 34 6- Cl 

2. 2 fc 51C26-C1 

-123. 15 

170.0 

-1. 6510366-01 

-1.61CC376-01 

l. 4522746-01 

-138.98 

171.0 

-2. 3896606-01 

- 1. 22 141C6- C 1 

2.683713E-01 

-152.93 

172.0 

-2. 8490316-01 

-8. 0655 a 3 t-C2 

2.9fcC9956-01 

-164.19 

173.0 

-3. 1629C9L-01 

-2. 82fc3926— C2 

3. 1765136-01 

-174. 89 

174.0 

- 3. 36487 76 - 0 1 

2. 121065E-C2 

3. 371 55 56-01 

176.39 

175.0 

-3. 54 89 8d6-Ql 

fc .6 62 1 3 j t-C2 

j. 6 1C9776-C1 

16 9. 3 7 

176.0 

-3. 08016^6-01 

1. 0137696-Cl 

J. 8172406-01 

164,60 
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177.0 

>3, 6422638-01 

1. 2402 76 £- Cl 

3. 8476776-0 

161.15 

17b. 0 

- 3o 5d 1 5 6 8E - 0 1 

1. 3 524 75 6- C 1 

3. 8264526-0 

159. 31 

179.0 

-3. 5 j 50548- 01 

1. 46l97tt-Ci 

j. 8254 3 8 E- Cl 

157,5 3 

190.0 

-3. 5792288-01 

1.5050216-C1 

3. 882777E-01 

157.19 

181.0 

-3. 64 62788-01 

1. 4936108-0 

3. 9421836-01 

15 7.74 

182.0 

-3. 74 83 7 dt-01 

1. 3635C1E-C1 

3.9 8 866 8E-0 1 

160.01 

189.0 

-3. 8015756-01 

1. 2216666- Cl 

j. 9530456-0 

162,10 

184.0 

-3. 92 32 59E- C 1 

1. C9E0c86-Ci 

4. 0 7402 9 6-C 1 

16 4.36 

18 5.0 

-4. 1204098-01 

1.131774E-C1 

4. 2 730146-C1 

164.64 

186,0 

-4,3 815 938-01 

1. 222616E-C1 

4. 5489778-01 

164.41 

187.0 

-4® 6 j S c 2 7E-0 1 

1. 3588926-01 

4. 833575 E-Cl 

16 3. 6 7 

1B8.0 

-4.8343368-01 

1.6370148-0 

5. 151366 8- Cl 

161.47 

189.0 

-4. 9659218-01 

2. C953546-C1 

5.4058718-0 

15 7.1 7 

190.0 

-5. 03 7i 286- 0 1 

2.6841266-0 

5. 7076446-01 

151.95 

191.0 

-5.0356638-01 

3. 3546 1 7 8- Cl 

6.0675028-01 

146.43 

192.0 

-4. 9961686-01 

4. 1796 146-0 

6. 515432E-01 

140. 10 

193.0 

-4. 6449538-01 

5. C5 55 52 6-0 

6. 8654588-01 

132.5 8 

194.0 

-4. 3371 596-01 

C. C 5 i086£- C 1 

7.4449036-0 

125.63 

195,0 

-3. 35769C6— 01 

7.0421 2ofc-Ci 

6. 02 95298-01 

110.71 

196. C 

2534936-01 

8. 117152 E— Cl 

b. 7449066-01 

111.84 

197.0 

-2. 5047838-01 

S.C963C7E-01 

9. 4 34 86 5 E-01 

105.40 

198.0 

-1. 74 39406-C1 

1 . 00324-6 * CC 

1. 0182676 + 0C 

95.86 

199,0 

-8.4234058-02 

1, C5356C6+CC 

1. 097 195 6+00 

94.4 0 

200.0 

5.25 82396-03 

1. 1790296+00 

1.17585C6+OC 

89.74 

201.0 

9.4320966-02 

1.245166E+CC 

1. 24C 735E + 00 

35.67 

202.0 

1.9309896-01 

1. 2856S3E+C0 

1. 3C011 8E+0C 

ei.46 

203.0 

2. 8409576-01 

1* 33C5 25E+CC 

1.3605178+00 

77.95 

204.0 

3. 7069758-01 

1. 358062E+CC 

1. 40774 £ E + CC 

74.73 

205. 0 

4. 49 116 6t— 0 1 

1. 3656 1 u E+ CO 

1. + 3757^8+00 

71.00 

206.0 

5. 32 74 BSE -01 

i. J47020E+C0 

i. 446545t+CC 

68.42 

207. 0 

6. C6 8804c-0 1 

1.21466CE+C0 

' 1. 4475 76E + C0 

65.2 2 

208. 0 

6.7914478-01 

1.259554E+CC 

1. 4 3C58 4 t + CO 

61.67 

209.0 

7. 4291638-01 

1. 192122E+CC 

1. 4C605C6+C0 

58.06 

210.0 

b. DO 23438 -0 1 

1. 104071E+CC 

1.3635308+00 

54.07 

211.0 

8. 61 15078-01 

9. 9204 73E-C 1 

1.31367 4 6+CC 

49.04 

212.0 

9, 1525958-01 

6.644224E-C1 

1. 25893EE+0C 

43.36 

213.0 

9. 70G 5 07t-0 1 

7. 1756686-01 

1. 2C66C 16 + 00 

36.49 

214.0 

1. C22695E 800 

5. 5391C76-C1 

1. 163241E+0C 

28.44 

213.0 

1. 06 52 438 800 

3.8C3762E-C1 

1. 12111 Et + CC 

19.65 

216.0 

1. 1109806+00 

1.9797 72 E-Cl 

1. 1 2848 2 6 + 0 C 

10. 10 

217.0 

1. 14 30 C 3E ♦00 

1. 7CZ921L-C3 

1. 1430046+00 

.09 

216.0 

1. 1691428+OC 

-2.031C61E-01 

1. 18665 26 + 00 

-9.86 

219.0 

1. 1787S5E+00 

- 3. 9804 3 6E— Cl 

1.244185E+CC 

-13.66 

220.0 

1. lo5005E+CC 

-5. 8O2460E-O1 

1.31 944CE ♦ CC 

-26.09 

221.0 

1. 1771266+00 

-7.6388006-01 

1. 4C226CE+GC 

-32. 98 

222.0 

1. 1434818 + 00 

-5.3 1 Cb 956- Cl 

1.47461 16+00 

-39, 1 5 

223.0 

1.0967328+00 

-1. 0772 1 3 t+CC 

1. 5372736+C0 

-44. 4S 

224. C 

1.0291216+00 

-l. 1915626 + CO 

1. 57445 6E+ 00 

-49.13 

22 5, 0 

9, 32 1 3 628-01 

-1* 23 J8C4 c+ CO 

1. 5E65166+C0 

-54.02 

226.0 

8. 1612396-01 

-1.334578E+CC 

1. 56^6806+00 

-53.56 

227. 0 

6. 7422868-01 

- 1. 36 26 258 + CC 

1.5 2031 5E + CC 

-63.67 

223. 0 

5. 1002426-01 

-1. 3557C3E+CC 

1.44847L6+C0 

-69.3 0 

229.0 

3. 3 5t 1 1 8£-Oi 

-1.3157 26 6 + CO 

1 . 3 5785 56 + CC 

-75.65 

230.0 

1. 3961 06E-O1 

— 1.2368106+ CO 

1.2 4466 5 E ♦ CC 

-83.56 

231.0 

-6.401092E-02 

- 1.132654E +00 

1. 1 3446 1 E + 00 

-93.23 

232.0 

-2. 674669E-01 

-9,9515 506-0 

1. O34335E+00 

-104.99 

233.0 

-4. 75331 7E-01 

-8.4372166-01 

9.6041288-01 

-119.40 

234.0 

- 6. 7867 1 IE-31 

-6* 677401 E- 01 

9.5208756-01 

-135.47 

235.0 

-3, 631469E-01 

-4. 8 515 76 6- Ci. 

9. 945134E-01 

-150.80 

236.0 

-l.Oilt 468+00 

-2.9311276-01 

1. 072092E+CO 

-164. 1 3 

237.0 

-1. 1700628+00 

- 1 • 079C 25t - Cl 

1. 1750276+C0 

-174.73 

238.0 

— 1. 26 63 356+00 

6.6891298-C2 

1. 268 1006+ OC 

176.90 

239.0 

-1.33167 5E+ 00 

2. 33O05dt-Cl 

1. 352791E+C0 

169.06 

240.0 

-1* 3508666+00 

3.8210476-0 

1* 4038676 + CC 

164.21 

241.0 

-1. 3281196+OC 

5.091730E-C1 

1. 42237 76 + 0C 

159.02 

242.0 

-1. 254046E + 00 

6.05^0558-0 

1. 3924898+00 

154.23 

243.0 

-l. 14032CE + 00 

6. 7 546C 88- Ci 

1. 3 2579CE+CC 

149.37 

244.0 

-9. 3009058-01 

7. 16 3641 6- Cl 

1.212S82E+C0 

143.84 

245.0 

-7. 7771 84E-01 

7. 2749 74E-C1 

1. 36454 1E + CC 

136.91 

246. 0 

-5.6305 158-01 

7. 12 54 82t-0 1 

9. 0 8 158 5 E- G 1 

128. 32 

247.0 

-3. 1566456-01 

6. 7478486- Cl 

7.4456888-01 

115.07 

248.0 

-6. 369484E-02 

6. 1615358-01 

6.2142648-01 

9 5.80 

249.0 

1.9578076-01 

5.36CC55E-C1 

5. 7C64556-C1 

69.93 

25 0.0 

4. 48638 Ot- 01 

4.8916416-0 

t>. 2734246-01 

44.3 5 

251.0 

6. 72 92 07E-0 1 

3. 34 fcZ 75 fc- C 1 

7. 5161566-01 

26.4 5 

252.0 

8. 8478656-01 

2. 3306656-01 

5. 1 456046-C1 

14.76 

253.0 

1. 08C0476+CO 

S.C31C52b-Cc 

1.0833166+OC 

4.78 

254.0 

1. 15792 06 +0C 

2. 64 62 22 E- C2 

1. 158495E+0C 

1.30 

255. 0 

1.2093768+00 

2.5173706-C4 

1.2C92768+C0 

.02 
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256.0 

1, 2294051 +00 

-1. 7348C5E-C2 

1. 2255316+CC 

-.81 

257.0 

1, 1902286*00 

-1» 3271 17t- Ci 

1. 2C5555E+OC 

-6.32 

Z5tt. 0 

1. 07929 5E *00 

- 1. 34 c3 85c- Cl 

1.C55C05E+CC 

-9.72 

259. 0 

9.2d69ClE-01 

-2. 1020 53 6- Cl 

9. 5 21825E-01 

-12.75 

260.0 

7. 3761 10C-31 

-2.2003 13t- C X 

7. 657257E-01 

-16.6 1 

261.0 

5. 102191E-01 

—2* l 36251 E -01 

5.5 31374E-01 

-22.72 

262.0 

2. 604373E-01 

-1. S872C7t-Cl 

3. 275935E-C1 

-27.34 

263.0 

2. 13 50 70E-04 

- 1# 75 ss C4 1- Cl 

1, 756305E-01 

-89.93 

26 V. 0 

- 2. 5861 75E-01 

- 1. 473455 1- C 1 

2. 976472E-01 

-150. 33 

265. 0 

-5.036286E-01 

- 1 « i 6 53CCt- C 1 

5. 1702536-01 

-166.93 

26 6. 0 

-7. 23G044E-0 1 

-e. 7 361 4 36- C<. 

7. 282632E-01 

-173.1 1 

267.0 

-9, 061212E-01 

-6. 135571E-C2 

9.081561E-01 

-176.13 

266.0 

- 1. 0450 92E *00 

-4. 152546L-C2 

1. G45932E+CC 

-177. 7C 

269.0 

-1. 13O2fc8t+00 

— 2.6712 76t-C2 

1. 1 3C632 E*00 

-178.54 

270.0 

-1. 159227E+C0 

-2. 29«: 5 54c- Cc 

1. 1594546*00 

-178.87 

271.0 

-1. 132523E+G0 

-2. 996271 E-C2 

i. 133319E*CC 

-178. 4S 

272.0 

-1.C5Q301E+00 

-4. 44 1637t- 02 

1.05L24CE*CC 

-177.58 

273. C 

-9. 136903E-31 

— t. 50 1 5 21 E — C2 

9. 160005 E-0 1 

-175.93 

274.0 

-7. 32 6467E-0 1 

-5.2136Clt- Ct 

7.3B4176E-C1 

-172.83 

275.0 

-5. 149B02E-01 

-1. 227.340 E- Cl 

5.2 54C37E-C 1 

-166.59 

276. 0 

-Z.712450E-O1 

-1.54o643t-Cl 

3, 1 1545CE-C1 

-150. 4C 

277.0 

-1.320340E-02 

-1. 831267 t- Cl 

1. 6360246-01 

-94.1 3 

278.0 

2. 4o 73 77E-0 1 

-2. 066354 E- Cl 

3. 2 15 63 3E-01 

-39.97 

279.0 

4. 9676 696 -0 1 

-2. 2216 2aE- Cl 

3 .44 1 B9C E-Ol 

-24.10 

280.0 

7. 249629E-01 

-2. 26806 It-Cl 

7. 6 02 12 8t- C l 

-17.52 

281.0 

9. 1733826-01 

-2.19C067E-01 

9.43119CE-01 

-13.43 

282.0 

1. C6 96 8 82 ♦00 

-1.9344S3C- Cl 

1.0e7C4Cb*C0 

-1C. 2 5 

283.0 

1, 18196LE+0O 

— 1. 4 ld7 Co E- C 1 

.1. 190445E*0C 

— 0. d 4 

284.0 

1. 22 94 8 8E ♦ 00 

-2.422i59t-02 

1. 22572 76 + CC 

-1.13 

2 85.0 

1. 21 i 50 16 + 0C 

-6. 150566t-C3 

1. 21151 7E+0C 

-.2 5 

286. 0 

1. 161828E+QC 

3. C9 71 66fc- 02 

1. 1622416*00 

1.53 

287. C 

1. 0602 58E + 00 

7. 5373CSb-C2 

1.082S25E+OC 

3.99 

288.0 

6. 856453t-0 1 

2. 34o0 2 cE-C 1 

9. 16151 7E-01 

14.84 

289. 0 

6. 8055036-01 

3.38565CE-C1 

7. 6029536-01 

26.48 

290.0 

4. 622475E-01 

4* 4345736- Cl 

o. 3e5222t-Cl 

43. 62 

291. D 

2. 0965456-01 

5. 37 70 6 ^ 6- Cl 

5.771334t-01 

6 8.70 

292.0 

-4. 8 1 09 72E- 02 

6. 213514 E- Cl 

6. 232515 6- Cl 

94.43 

293. 0 

-2. 5a 5 1 3 16- 01 

6* 7566 10E -Cl 

7. 42326BE-01 

113.71 

294. 0 

-5. 44 B973E-01 

7. 190545E-C1 

5, 02225 CE- 0 1 

127.1 5 

295.0 

-7. 59182 8E-01 

7. 3540 20c- 01 

1.056565E*QC 

125.91 

29 6. 0 

-9.6190466-01 

7. 234256b — C 1 

1.204766f*CC 

142.5 6 

297. 0 

-1. 1237056*00 

t»854979t-Ci 

1. 3 16291E + C0 

148. 62 

298.0 

-1. 2383666*00 

6. 1622C6E-01 

1.3 8339 2 E + 00 

153.55 

299. 0 

-1. 3149 22E + 00 

5.2C6536E-C1 

1.41426 4E ♦ 0 C 

158. 4C 

300.0 

-1. 3404 0 IE + 00 

2. 54 1 1 86b- C 1 

1. 39714 2E + 0C 

163.62 

301.0 

— 1.324389E+0G 

2.503318E-C1 

1. 34734C E + C 0 

169.30 

302.0 

- 1. 2625 70E + 00 

7.5241686-02 

1. 265054E+00 

176.41 

303. 0 

-i. 17G0C6E+ 00 

-5.3681 j.8 c-C2 

1. 17391 2E *00 

-175.32 

304.0 

-1.03515 2E ■*•00 

-2.8112C4E-01 

1* 07264 6E ♦ CO 

-164.81 

305.0 

-8. 760031E-01 

-4. 7353 C2E-01 

9. 95757 3E-01 

-151.61 

30 6.0 

-6. 90462 5E-0 1 

-t. 566065 E- 01 

9. 528224E-01 

-136.44 

307.0 

-4. 909143E-01 

-6.331916E-C1 

9.67C60CE-01 

-120.51 

30 B * 0 

-2.864822E-01 

-5. 893487b- Cl 

1. C25952E+00 

-106. 15 

309. 0 

-B. 604775E-02 

-1. 123721 E+CC 

1.1 2701 1E+00 

-54.38 

310.0 

1. 1495 13t-01 

-1. 22 38 57t + CC 

1.234262E + 0C 

-84.66 

311, D 

3. 067656E-01 

-1. 30866GE+CG 

1 ■ 3447S6E + 00 

-76.73 

312.0 

4. 816385E-01 

-1.35G115E+GG 

1.43345 7E + CC 

-70.37 

313.0 

6. 44 3469E-0 1 

-1,35 6456E*-CC 

1.5O3777E+C0 

-64.61 

314.0 

7. 863640E-01 

- 1. 3324 77E + C C 

1. 547212E*CC 

-59.45 

315.0 

9.0262C1E-01 

-1. 283140L»C0 

1. 5688126+00 

-54.08 

316.0 

1. 000 390E *-00 

-1. 19 Z947E + CO 

1. 556SB5E+CC 

-50.02 

317. a 

1. 06 53 2 1 E *-00 

— l.GSC&dbE+GC 

1 ■ 5 2043 4 E + 0 0 

-45.31 

316.0 

1. U7862E + 0C 

-5. 3723356-21 

1. 456774E+00 

-39.98 

319.0 

1. 1537406+OC 

-7. 72&7556-01 

W3££57SE*CO 

-33.81 

320.0 

1. 1641 5 7E + 0C 

-5. 915422 E- Ci 

1. 30 6CC BE ♦ CC 

-2s. 95 

321.0 

1. 160858E+00 

-4. 1275 1 7t- Cl 

1. 2220346*00 

-19.57 

322. 0 

1. 1542 1 7L + 00 

-2.210154E-C1 

1. 175197E + 0C 

-10.84 

323.0 

1.1312116+00 

— 1 • 93 89 li>6- 02 

1.1 31377E+CC 

-.98 

32 V. 0 

1. 1C2414E+OL 

1. 7 3 7 3 74t- Cl 

1. 1 1602 1 E *00 

8.96 

325.0 

1. O6O142C+0O 

3.529418E-C1 

1. 1 17345E + 00 

1B.41 

326. 0 

1.0zll76t*QL 

5. 2344 59t- C 1 

1. 147 51 7E+CC 

27.14 

327.0 

5.716211E-01 

6. 8437 7 ic- C 1 

1.1 £84536+00 

25.16 

328.0 

9. 2uuS80c-01 

E.2S6256E-C1 

1. 2 38 2 29 £ + 00 

42.01 

329. 0 

8.691685E-01 

9.54i7C0t-Cl 

i. 29C84 2 E + 00 

47.68 

330.0 

6. 1 141 85E-01 

1. 0647 52 L + CC 

1. 33B724E + C0 

52.69 

321.0 

7. 381 ] 76c -01 

1. 1 52 8 706 ♦ CO 

i. 3 75 89 6 E + CC 

56.67 

32 2. 0 

6. 561082E-0 1 

1.2185756+ CC 

1.4037346*00 

60.27 

33 3.0 

8. 266124L-01 

1. 274368b* CO 

1.42CC9Ct+00 

63.82 

33 4,0 

5. 55C364E-01 

1. 3077 Sit ♦ CO 

1.42C699E+QC 

67.00 

335.0 

4. 7376576-01 

1. 32 82 C2 E+ C 0 

1.41C17CE+C0 

70. 27 
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336.0 

3. 573724E-01 

1. 32 31 3GE+ CC 

i« 38151 2E+00 

73.23 

337.0 

3. 1 2 56 72 l- 01 

1. 258820 E* CC 

1.335902E+CC 

76.47 

33 3.0 

2. 2 3ou C 6c -0 L 

1* 25 7 87CE* CC 

1. 277485E*CC 

79.9 5 

339. 0 

1. 2520316-01 

1.22 1 8 7CE * CO 

1. 228268E+CC 

84.1 5 

390. 0 

3. 67 138dc-02 

1. It 1 522 b*Ct 

1. 161903E+C0 

88.19 

391.0 

-3. 2o7423t-02 

1.0 80 569b*- CC 

1. C 61 8 7 2 E ♦ CO 

92.79 

342.0 

- 1. 43 2b49c -01 

5. 952dt7E-Ci 

1.0065486*00 

9d.l9 

343.0 

-2. 2023036-01 

9.07C565E-C1 

9, 3 34C53E- C 1 

103.65 

344.0 

-2. 9544456-01 

a. 142 bSi c - Cl 

a. 66571 5E-01 

110.00 

345.0 

-3. 5d67 2 IE- 0 1 

7. I17138t-Cl 

7. 96903 2E-01 

116.75 

346.0 

-4. C87950E-01 

6. 17232CE-C i 

7.403301E-C1 

123.52 

347.0 

-4, 41 S105E-01 

5* 2 1605 bt- Cl 

fc. 836285E-C1 

130.27 

34 d» 0 

-4. 79 a7 C4E- 0 1 

4. 3 7465<.t- Ci. 

6. 4936 7 lE-Cil 

13 7.64 

349.0 

-4. dd2bl3t— 01 

2. 577415 E- Cl 

6. 053C79E— 01 

143.77 

350.0 

-4. do9312E-01 

2,9 2504 be- Cl 

5. 599534E-01 

149.08 

35L.3 

-4. 66 22 B 16- 0 1 

2. 359343c- Cl 

b. 4 0446 5E-G 1 

154.12 

352.0 

-4. 7d 29 b2fc - 0 1 

1.5CbCjOL-:i 

b. 1495146-01 

15 3.25 

353.0 

-4. 52 65 dot- 0 1 

1.636662 L— C 1 

4. 8416C5E-01 

160.24 

364.0 

-4. 3l5729c-01 

1,5039 24E-C1 

4. 57C266E-01 

160.79 

35 5. 0 

-4. Oo 91 35E-0 1 

1. 4 1 32 33 6- C 1 

4. 307562E-C1 

1 6 0. 8 5 

356. 0 

-3. 8U2000E -01 

1. 2 7b6 67 E- C i 

4. 119544E-01 

160.45 

357.0 

-3. 763i27L-0 1 

1.5C2978E-C1 

4, 052169 E-01 

153.23 

353. 0 

-3. 7G9942E-0 1 

1. 6471566-C1 

4. 059162E-01 

156.06 

359.0 

-3. 614759E-01 

1.7b0766fc-Cl 

4. 02S592E-C1 

153.77 

360.0 

-3. 54 56 1 dE -01 

1. 796 989 E- C 1 

3. 975C36E-01 

153. 12 


=4UIATI0N PATTERN (GB ANa E/tMAM 


uEG. 

EPH, UB. 

t/ tM AX 

PHASE, DEG. 

0. 0 

-16.021180 

. 1581G3 

1 33. 12 

1.0 

-lo. 144259 

.155879 

153. 29 

2.0 

-16. 152810 

. 15572b 

1 54.55 

3.0 

-16. 124593 

. 156232 

156. 6C 

4.0 

— 16.2 2* o 0 5 

. 154444 

155. 67 

5.0 

-lo. 750826 

. 1453 65 

163. 88 

6 » 0 

-17.4354 91 

. 134346 

170.25 

7.0 

-Id. 101103 

. 124436 

178. 36 

3.0 

-Id. 926c34 

■ ii 5 1 5 5 

-171.45 

9.0 

-20, 066771 

. C99224 

-16C.60 

10.0 

1. 239976 

■ C 866 5 6 

-146. 2C 

11.0 

-21, 940946 

. C73975 

-128,49 

12.0 

-22. 160313 

.077380 

- 1 C 7. 64 

13. 0 

-22. 549471 

. C7 4564 

-89. 01 

14. 0 

-Cl# 830 799 

. C8C965 

-7C.25 

15.0 

-2 1. 225344 

. Cd a 843 

-55. *3 

16. 0 

-20. 567360 

• C 9 36 77 

-41. 38 

17.0 

- iO. 330795 

. C9o265 

-29.08 

ld.O 

-20. 156612 

. 098215 

- 19. 52 

19.0 

-20. 19CGQ6 

. C 9 7 8 5 6 

-8.90 

20.0 

-20.228322 

.C974C6 

. C6 

21.0 

-20. 876320 

. C* 04 Od 

7. 77 

£. tL * 0 

-22. 237332 

. C764C3 

17.69 

23.0 

-23. 503365 

.C668C9 

24. 28 

24.0 

-25.425372 

.053547 

27.71 

25.0 

-26. 879306 

.C35978 

23. 60 

2 6.0 

-35. 100c44 

. 01 7 5 7 d 

3.02 

27.0 

-33. 167955 

.021558 

-69.04 

28. 0 

-26. 733632 

.045953 

-67.69 

29.0 

-22. 272768 

.076977 

-86.62 

30.0 

-lb. 954556 

.112790 

-83.62 

31.0 

-16, 652768 

. 147015 

-79.94 

32.0 

-14.715821 

. 185742 

-75. 65 

33.0 

-13. 212705 

.218456 ‘ 

-71.53 

34. 0 

-12.015284 

. c5C622 

-67.59 

35.0 

-10. 583751 

• 28236 c 

-63.90 

36.0 

-10.257547 

.306975 

— 6 C. C9 

37. 0 

-9. 744 o27 

.325656 

-57.54 

38.0 

-9.523303 

. 334068 

-55.61 

39.0 

-9.440186 

• 3 372 cC 

-54.09 

40.0 

-9.62571 1 

. 330152 

-52.63 

41.0 

-10. 198314 

.303050 

-52.83 

42.0 

-1 1.0 13872 

.281365 

-55. 15 

43. 0 

-12. 226603 

. 2*4715 

-59.82 

44.0 

-1 3.682052 

. 2Ct9 ob 

-6 e.^e 

45.0 

-14. 990334 

■ 17d025 

-85.13 
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46. 0 

-15. 315427 

4 7. 0 

-1 3. 553193 

4a. o 

-1 1. 788129 

49.0 

-9. 7 36 4 84 

50.0 

-7. 904401 

51.0 

-6.55bl74 

52.0 

-5.476 025 

53.0 

-4* 658742 

54. 0 

-4. 110466 

55.0 

-2.795413 

56.0 

-3. 771725 

57.0 

-3. 980198 

58.0 

-4. 464884 

59.0 

-5. 311664 

60. 0 

-6.437426 

61.0 

- o. 11291* 

62.0 

-10.072245 

63.0 

-11. b 35 8 80 

64. 0 

-1 1. 912661 

65.0 

-4. 925534 

66.0 

-7. 692791 

67. 0 

— 5. 646 761 

68.0 

-4.C63555 

69.0 

-2. 630501 

70.0 

- 1 • 929 o92 

71. 0 

-1. 376276 

72.0 

-1.028672 

73.0 

-. 91CB12 

74. 0 

-1.204005 

75.0 

-1. 650825 

76.0 

-2.413939 

77.0 

-3. 797713 

78.0 

-5.736329 

79.0 

-8. £02316 

30.0 

-12. 669592 

81.0 

-19.031935 

82.0 

-15.117371 

33.0 

-9. 724067 

B4.G 

-6. 345976 

o5. 0 

-4. 064 b9 9 

B(>. 0 

-2.489i6<* 

37.0 

- 1.3 32 6 4 7 

38. 0 

-.574501 

39.0 

-.141715 

90.0 

C. 000000 

5 1.0 

123296 

52. C 

-. 526534 

93.0 

-1. 2727o,C 

94.0 

-2. 373241 

95.0 

-3. 9425 82 

96. 0 

-D. 171 d45 

97.0 

-9. 463943 

98. 0 

-14. 729003 

99.0 

-19.445311 

100.0 

-13. 23b521 

101.0 

-8. 742432 

102. 0 

- 5. 637695 

103.0 

-j. 947108 

104.0 

456532 

105. C 

-1. 7Cb595 

106. 0 

- 1. 202582 

107.0 

-. 901299 

106.0 

- » 995*10 

105.0 

- 1. 310547 

110.0 

-1. 633635 

111.0 

—2. 653615 

112.0 

-i. 085394 

113.0 

-5.418407 

114. 0 

-7.40o711 

115. 0 

-9. 622184 

116.0 

-11.746L75 

117. 0 

-1 2.003419 

118.0 

-10. 357567 

119.0 

-6. 330981 

129.0 

-8. 7 C334-4- 

121,0 

-5.477675 

122.0 

-4. 536909 

12 3.0 

-4. 064752 

124.0 

-3, 821124 

125. 0 

-3. 615340 


. 17146c 

-1C7. 30 

. 2006 C4 

-129. 76 

. 257391 

-144.56 

.325949 

-153. 82 

.356623 

-158. 67 

.469953 

-161. SC 

. £32352 

-162.8e 

. 5o4d 75 

- 1 £ 5 . 05 

.622564 

-163. 84 

. 643658 

-166.53 

.647759 

-167.41 

. 632357 

-168.51 

. 59 6C 7^ 

-17C.49 

• 542524. 

-172.99 

» 4 7 jd 37 

-177. 3C 

. 392965 

175.67 

. 3136C8 

162.85 

.253351 

140.9 5 

. 2537*7 

1 11. Ct 

. 316936 

B£. 72 

. 41244C 

72.46 

, 521590 

64. 22 

.6*6357 

59. 10 

. 721856 

56.19 

. 600764 

5 4.32 

. 653466 

52.87 

.688314 

£1.54 

. 500450 

52.59 

. 67C562 

50.65 

. 823112 

48.21 

.756925 

45.63 

, 645824 

46. 11 

.510635 

44.05 

.375716 

35.48 

. 2*7239 

28.22 

. 111533 

-17.08 

. 175441 

- E fc. 42 

. 326435 

-IC4.76 

.481616 

-111.02 

• 6* l.2 fc 1 

-113. 9t 

. 753^41 

-115.59 

, 8577 *t4 

- 1 1 fc • 5 t 

. 53399b 

-117.13 

. 583817 

-117.45 

l.CCOGOC 

-117.55 

. 565905 

-117.50 

. 54:0So 

-117.24 

. 663658 

-1 16. 73 

. 760916 

-1 15.84 

. 635142 

-l 14. 34 

• 45 i 3 69 

-111. 60 

.336355 

-1C5.86 

. 1 do4 £4 

-09. 28 

• lOt 5 68 

-22. 79 

. 216556 

27. 21 

. 3654 52 

35. 13 

. 5Q77C5 

43. 64 

.634811 

46. 14 

* 75 56 22 

4 5. 3 8 

. t* 13 51 

47.55 

. d 706 65 

50. 39 

.501456 

£2. 5 8 

. 8917 12 

51. 38 

. 855549 

£2. 25 

. £05685 

5 3.71 

.733347 

55. 50 

. 639326 

5 £« 21 

.535853 

63.01 

• 4261 £ * 

70. 66 

•3302 U 

8 3.87 

. 2586 27 

1 Cfc.73 

. 251032 

1 36. 6C 

. 303474 

155.86 

. 2 8 10 2 j 

172.66 

. 4c 2 2 C3 

-1 78.76 

. 5^22*8 

-174. 17 

. 565732 

-171.52 

• 626271 

-165.46 

■ 6*t4C £6 

-168. 31 

• 6^44 78 

-167.42 
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126 B 0 

-4. 094999 

.624159 

-166.71 

127.0 

- ■>• 6 Ob ■*53 

.568271 

-166.01 

123.0 

-5. 390464 

.537622 

-164. 86 

129.0 

-6.434619 

.476715 

-162.89 

130.0 

-7. 613020 

• 40o5 36 

-159. 96 

131. 0 

-9.522227 

. 3341C9 

-155.43 

132.0 

-11. 540528 

. 264834 

-1 46. 87 

133.0 

-13. 724877 

• 20 394 7 

-132.93 

134.0 

-15. 2602*7 

. 172778 

-1 1 1. 32 

135.0 

-15. 125667 

.175274 

-88.77 

13b. 0 

-1 900256 

. 201331 

-71. 10 

137.0 

-12.427357 

,239129 

-61.71 

138.0 

-11.175270 

. 2762C8 

-56.57 

1 J 9. 0 

-10. 320252 

.304761 

-53.98 

14Q.Q 

-9. 709 112 

.326957 

-53, 61 

141.0 

-5.487454 

. 3 354 50 

-54.90 

14-2.0 

-9. 537360 

■ 3335 28 

- 56.45 

143. 0 

-9. 7241 35 

. 326431 

-58.36 

144.0 

-10. 198765 

. 3C5073 

-60.93 

145. 0 

-1 0.880509 

,28574c 

-64.77 

146.0 

-11. 860744 

. 255246 

-66. 55 

147.0 

-12. 932356 

* 224 327 

-72. 60 

148.0 

-14.386071 

■ 1 9C 9 52 

-76.89 

149.0 

-1 6. 1 75 d7 2 

.155312 

-81.43 

150. 0 

-1 8.258546 

. 12 c 2 CO 

-E5. 50 

151.0 

-21. 163297 

. Ob 74 63 

-39. 27 

152.0 

-24. 618099 

. CS 74 24 

-92. 10 

153.0 

-29. 665606 

. C32664 

-84. 10 

154.0 

-35. 21684c. 

.017344 

-43. 23 

L53.0 

-31. 1 56526 

. C27680 

2,08 

156.0 

-27. 285277 

. 043225 

14. 76 

157. 0 

-24.926360 

. C56713 

13.43 

158.0 

-23.406578 

. C67557 

7.51 

159,0 

-21. 50765 C 

• 0840c5 

-1. 88 

IbO. 0 

-20. 599727 

. C93j26 

-5. 33 

161. C 

-20. 293435 

. C96673 

-18,44 

162.0 

-19.951137 

.100564 

-.28.85 

163.0 

-19. 849332 

. 101749 

-38.02 

164. 0 

-19.771431 

.102666 

-49.40 

165.0 

-20. 073206 

. C99161 

-62. 26 

166.0 

-20. 372602 

• C956C1 

-74.97 

167.0 

-ZO. 834413 

. C90640 

— 9C. 55 

168.0 

-20.5270C7 

.094113 

-105.71 

169.0 

-20.531004 

. C94G70 

-123. 15 

170.0 

-20. 213079 

• C9 75 77 

-138.96 

171.0 

-19. 433278 

.106742 

-152.93 

172.0 

-18. 579234 

.117771 

-164. 19 

173.0 

-1 7.971723 

• 126 303 

-174, e9 

174.0 

-17. 451395 

. 1 J 4 1 Cw 

•- 176. 39 

175. 0 

-16. 855506 

. 143623 

169. 37 

176.0 

-16.373011 

. 151827 

164. 60 

177.0 

-16.3 04 02 9 

• 153028 

161. 19 

178. 0 

-16. 347537 

. 152273 

159.31 

179.0 

-16. 354378 

. 152153 

157.53 

lbO.O 

-16. 225151 

. 154434 

157. 19 

181.0 

-16. 093266 

.156747 

157.74 

182.0 

-15. 991443 

a 15 8t>4t 

1 6C.01 

163.0 

-15. 931 9C8 

. 158320 

162.18 

184.0 

-15. B07518 

. 162041 

164. 36 

185. 0 

-15.393314 

.169955 

164. 64 

186.0 

-14. 349726 

. 18C931 

164. 41 

187. 0 

-14. 322631 

. 19 Cc 5 1 

1 63.67 

183.0 

-i 3. 7 69 552 

.204891 

161.47 

189.0 

-13. 344263 

.2151 73 

157. 17 

190.0 

- -12. 878863 

. 227016 

151.95 

191.0 

-12. 3 4780*: 

• 24 13 2 9 

146.43 

192.0 

-11.729136 

. c 5 9 1 4 5 

. 14C.1C 

193.0 

-1 1. 27459 6 

. 2 730o6 

122.58 

194. 0 

-1C. 570819 

.296114 

1 25. 63 

195. 0 

-9. 914199 

. 315367 

1 18.71 

196.0 

-9. 172898 

, 347820 

1 11. 84 

197. 0 

-3. 513263 

.375263 

1C 5. 4C 

198. 0 

-7. 850394 

■ 4C 5 C 14 

99. 86 

199.0 

-7. 202295 

. 43 64C i 

94. 40 

200.0 

- b. 5 71 46 2 

. 4692 ?4 

85.74 

201. 0 

-6.078595 

.496673 

85.67 

202.0 

-5.728345 

.3171 1C 

81. 46 

203.0 

- 5. 3 33 92 C 

. 54 1 1 33 

77.95 

204. 0 

- 5. 037513 

. 5599 18 

74. 73 

205.0 

-4. 855397 

.571782 

71. 8C 
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206.0 

-4. 789358 

207.0 

-4.792773 

208.0 

-4. 695336 

209.0 

-5. 047983 

210.0 

-5. 314 391 

211.0 

-5. 638251 

212.0 

-fa. 007911 

21 3’. 0 

-6. 376683 

214.0 

— fa. 6 94 fa 32 

215.0 

-6. 937 342 

216.0 

-6. 93B111 

217.0 

-6. 8 37 343 

218.0 

-6. 521525 

219.0 

-6. 110298 

220.0 

-5.600237 

221.0 

— 5* 0fa5 2 37 

222.0 

-4.634452 

223. 0 

-4. 272979 

224. 0 

-4.065390 

22 5.0 

-3. 999110 

226.0 

-4.119490 

227.0 

- 4, 3 6930 6 

22 9.0 

— 4o 7 89 dO 6 

229. 0 

-5.350935 

230.0 

-c. 136948 

23 1.0 

-6. 912206 

232.0 

-7.714742 

233.0 

-6. 286790 

234.0 

-8.434460 

235.0 

-8. 055787 

23 6.0 

-7. 402348 

237.0 

- 0 . 607 04 3 

238.0 

-5. 944930 

239.0 

-5.383388 

240.0 

-5.061482 

241.0 

-4.947707 

242.0 

-5. 132167 

243.0 

-5.5585C6 

244.0 

-6. 223748 

245.0 

-7.461493 

246.0 

-8. 844767 

247.0 

-10. 565238 

248.0 

-12.140207 

249.0 

-12.880667 

250.0 

-12. 050987 

251.0 

-10.486038 

252.0 

-8. 779878 

253. 0 

-7.308887 

254.0 

-6.730121 

255.0 

-6. 356771 

256.0 

-6. 213210 

257. 0 

-6. 384262 

25B.O 

-7. 219650 

259.0 

-6.433596 

260.0 

-10.281236 

261.0 

-13. 151341 

26 2.0 

-17.701294 

265.0 

-23. 116000 

264.0 

-Id. 533966 

26 5.0 

-1 3.73776C 

266.0 

-10, 762233 

267. 0 

-8. 844408 

266.0 

-7.617928 

269.0 

-fa. 941569 

270.0 

- 6. 7 22932 

271.0 

-6. 9 2C9 55 

272. 0 

-7. 573962 

273.0 

- 6. 7700ofe 

27 4.0 

-10.641560 

275.3 

-13. 532262 

276. 0 

-18. 126440 

277.0 

-62.730432 

278.0 

-1 7. 851872 

279.0 

-13. 293006 

280.0 

-10. 3d9 297 

^81,0 

-d. 516671 

262.0 

-7.285092 

263,0 

-6. 453 dl 2 

284.0 

-6. 2 11 b27 

285.0 

-6. 341411 


576145 

68.42 

575919 

65. 22 

565160 

61. 67 

.559243 

5 8. 06. 

542351 

54.07 

5225 Ci 

49.04 

,500731 

43. 36 

479517 

36.45 

,462668 

2 8.44 

.449852 

19.65 

.446643 

IC.10 

. 454c 19 

.05 

. 47 1980 

-5. 86 

.454663 

- 18.66 

. 524755 

-26.09 

*553134 

-32.58 

.586513 

-35.15 

.611436 

-44.45 

■ 62 62 25 

-49.18 

. 63 10 ^2 

-54.02 

.622337 

-58.56 

. 604652 

-62.67 

.576116 

-65. 38 

. 54 CC 74 

-75.69 

. 495054 

-82. 56 

.451221 

-53.23 

.41 1359 

-1C4.99 

. 385177 

-1 19. 40 

■ 37 6 614 

-135.47 

. 39555o 

-15C. ec 

•426415 

-164.13 

.467356 

-174.73 

. 504375 

176.98 

. 538060 

165. 06 

• 55 83 75 

164. 21 

.565737 

155.02 

. 553849 

154.23 

. 527320 

144. 37 

.482650 

143. 84 

. 423570 

136.91 

. 361212 

128.32 

.296204 

1 15.07 

• 24 7 lb7 

55. 88 

. 226969 

65.93 

.245718 

44. 39 

.298950 

26.4 5 

. 26 j9 20 

14. 76 

.431078 

4.78 

. 46 07 »0 

1. BO 

.481018 

.02 

.489035 

81 

.479458 

-6. 32 

■ 4^5529 

-9.72 

.378722 

-12.75 

.306153 

-16.61 

.220005 

-22.72 

. 130257 

-37.34 

.069855 

-89.93 

.112386 

-150. 33 

. 20 564c 

-ifcfc. 93 

• 28 96c C 

-172. 11 

.361227 

-176.13 

,416010 

-177.70 

.449659 

-178.54 

. 46 1162 

-l?e.d? 

.450767 

- 1 "’8. 45 

• 4 1 1 1 21 

-177. 58 

, 364331 

-175.53 

. 29 ifc 55 

-172.83 

. 210565 

-166. 55 

. 124C7J 

-1 5G.4C 

• 0 7 302c 

- 5 A * 13 

. Ud056 

-35.57 

• 21 6446 

-24. 1C 

. 3C2 J 6 8 

-17.52 

.273117 

-13.42 

.432360 

-1C. 25 

• 47 j48b 

-6. d4 

■ 48 5 1 It 

-1.13 

. 4c 1 86 9 

-.25 
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266.0 

-6. 7C2 080 

. 462*. 70 

1.52 

267. C 

-7. 316034 

.430723 

3.99 

268.0 

-8. 768273 

. 3044C7 

14.84 

2 89.0 

- 1 0* 3883 54 

. 2C24CC 

26.48 

290.0 

-1 1. 904<-31 

. 253966 

42.62 

291,0 

- 1 2. 7 0^476 

. 229545 

68.70 

292.0 

-12.114734 

.447852 

54.42 

293.0 

-10. 596097 

• 295254 

112.71 

294.0 

-8. 901703 

.358052 

127. 15 

29?. 0 

-7. 526790 

.420353 

L 35. 91 

296.0 

-6.389804 

.679152 

142.96 

297. a 

-5.620965 

.523542 

143.62 

298.0 

-5. 189093 

. 55C221 

1 53. 55 

299.0 

-4. 997 j92 

. 56c510 

1 5 8.40 

300.0 

-5. 103 1 9 1 

• 55 57 C J 

162. 62 

301.0 

-5. 41523*- 

. 536CS1 

169. 30 

302.0 

-5. 965818 

. 503162 

176.41 

303.0 

-6. 615291 

. 46 19 12 

-175. 32 

304. 0 

- 7. 3 38874 

,426555 

-164. 81 

305. 0 

-8. 0^4531 

« 8 56 069 

-15 1.61 

306.0 

-8.427761 

.37857c 

-136.44 

307.0 

-8.298932 

. 264025 

-120. 51 

303.0 

-7.751326 

• 40 96 * C 

- 1C 6 . 1 5 

309,0 

- 6. 96943 7 

. 44 1 2 5 6 

-94. 28 

310. 0 

-t. 179056 

. 4 9C 5 1 q 

-E4.66 

311.0 

-5.484-936 

. 534876 

-76.73 

J12.0 

-4. 8603 C 8 

. 570144 

-7C. 37 

313.0 

-4. 464 384 

. 556113 

-64.61 

314.0 

— 4. 217007 

. 6153 E5 

-59.45 

315.0 

-4.0965-83 

.628960 

-54. 80 

316.0 

-4. 162649 

• 6 1 5 2 - 3 

- r 0, 0 2 

317.0 

-4. 368648 

. 6047 29 

-45.31 

313. 0 

-4. 728238 

■ 5002 14 

- 29.98 

319.0 

-5. 156591 

. 552254 

-33. 81 

220 . 0 

-5. 689C83 

• 5'i 5 4 5 3 

- 26.95 

321.0 

-t. 195409 

. 4900 2a 

-19. 57 

32 2. 0 

-6. 605839 

.467420 

-10.84 

323,0 

-t. 935850 

.445553 

-.90 

324.0 

-7. 054555 

. 44 3a c 7 

8. 96 

325.0 

-7. 044222 

. 4444 15 

10.41 

326. 0 

-t. 812315 

.456414 

27. 14 

327. C 

-6. 508363 

. 4 72d 5c 

25.16 

32 3. 0 

-6. 151280 

.452534 

4 2.01 

329.0 

-5.790531 

,512421 

47. 68 

330.0 

-3.474173 

. 53 24 e 5 

52.69 

33 i . G 

-5. 211626 

. 54 38 Co 

56. 67 

332.0 

-5. 062306 

. 550322 

aO. 2 7 

333. 0 

-6, 961681 

. 564828 

63. 82 

334.0 

-4.95756 0 

• 56 5C TO 

67.00 

335.0 

-5.022572 

. 5bO60<. 

7C. 37 

336,0 

-5. 230904 

» 54 54 64 

72. 28 

337.0 

- 5. 49^5 1 1 

. 531342 

76.47 

336.0 

-5. 880836 

. 50 81C0 

79.95 

339.0 

-6.222137 

. 48 65 3 1 

64. 15 

3*0. 0 

-6. 704606 

.462136 

68. 19 

541.0 

-7. 3 244 32 

, 4303 C4 

52.79 

34 2.0 

-7.959547 

• 299947 

5 8.19 

3*3. 0 

-B.60o5?8 

.371236 

103.65 

.>4 4. 0 

-9. 251912 

. 344671 

11C. 00 

345.0 

-9.979017 

«8lt963 

116.75 

346.0 

-1 0. 619692 

.294459 

123. 52 

347.0 

-11.311465 

.271911 

130.27 

343.0 

-11. 753154 

• 25 82 60 

137. 64 

349. 0 

-12. 348474 

,240756 

142.77 

350.0 

-12. 891213 

.226694 

L49.0B 

351.0 

-13. 352940 

. 214558 

154.12 

352.0 

-13. 7 72o75 

. 204017 

156.25 

353* 0 

-14. 308213 

.152570 

16C.24 

354*0 

-14.809170 

.181778 

16C.79 

355.0 

-15.323372 

.171326 

160.85 

356.0 

-15.711017 

. lo 38 51 

16C.45 

357.0 

-15, 854250 

.161171 

158. 23 

358. 0 

-15. 839272 

. 161446 

156.06 

359. C 

-15. 502779 

. 16C272 

153.77 

360.0 

-lo.021174 

. J.5S1C3 

153. 12 


KNTPLT* 3 
KNTPLT= 4 
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SHORT-CIRCUIT I T T AfJCt. MATRIa 


:nt 

PORT 

PiJ I NT 

RGRT 

&» MLLIMHGS 

3, R ILL I MHOS 

5 

1 

5 

1 

C. CCCCOOOO 

Q.COOOCOOO 

5 

1 

11 

2 

C.CCCv GClCiO 

c. ccccoooo 

5 

1 

67 

3 

C . C QCC 8 Q 00 

c. ocoooooo 

5 

1 

93 

t- 

0. OCG uOuOO 

c. occcccco 

11 

2 

5 

1 

C. CCCCOOOO 

0 . ocoooooo 

11 

2 

11 

2 

C . C CGCOOOO 

c. ooccoooo 

11 

2 

B7 

3 

o. CCOCuuOO 

c.ccoooooo 

11 

z 

93 

4 

C.CCiiOOOuO 

c. ccccacoo 

b7 

3 

f 

1 

0. CCGCUUJO 

o.oocooooo 

67 

3 

11 

2 

C« CCC CQOOO 

c. ccccoooo 

87 

3 

87 

3 

C.GCCCUOGO 

c.ccoooooo 

87 

3 

93 

4 

C.OGOCQOOO 

c. ocoooooo 

93 

w 

e, 

1 

c. ccccoooo 

c. ccoooooo 

93 

{, 

11 

2 

C. CCOOOOOO 

o.ccoccooo 

93 

9 

87 

3 

C. C CU uOOGO 

c. ccoooooo 

93 

4 

93 

4 

O.GOCCOOOO 

o. ccoooooo 


On output, the input data, except for the 55 cards giving the coarse point X- and 
Y- co ordinates, are printed first. Then, the indices and the X- and Y-coordinates of the 
166 actual points generated by subroutines SPLFIT and SPFIT2 and required by subrou- 
tine TESLOT are printed in units of centimeters. The statement KNPLT = 1 implies 
that subroutine SKETCH has made a plot of these points and has given the scale factor 
below the plot in cm/inch (on the plotting paper). 

Next, computations and plots as functions of frequency are made. The printer out- 
put is given only for the first frequency, 5.250 GHz. The printer output however is simi- 
lar for all the remaining frequencies. 

For a given frequency, the frequency and wavelength are written first, and a plot of 
the 166 points (KNTPLT = 2) is made and the scale factor in wave length s/inch on the 
plotting paper) is given below the plot. Next, a write out of the geometry of the cross 
section is given. In the write out, the X- and Y-coordinates are given in wavelengths at 
the specific frequency for a particular point, say, point I, and the length, in wavelengths, 
of the segment the end points of which are point I and point I + 1 is also given. The 
voltage strength of a narrow axial slot is also given at the point at which the slot is 
located. 

Next, the computed radiation pattern is printed. In the program, PHI corresponds 
to 0 r of figures 1 and 8, and for a given value of PHI, the real part, the imaginary part, 
the magnitude, and the phase of the relative radiation field are printed. 

Next, for a given value of PHI, the radiation field in decibels, the normalized radi- 
ation field, and the radiation field are printed. The statements KNTPLT = 3 and 
KNTPLT = 4 indicate that subroutine DBPLOT has made a radiation field magnitude 
polar plot and a radiation field phase rectangular plot, both plots of which are functions 
of cp T . (See fig. 14.) 

Finally, the short-circuit admittance matrix is printed. However, since MADM = 0, 
this part of the write out is meaningless. 
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TABLE I.- GEOMETRY AND EXCITATION DATA FOR APPLICATION OF RIEF FOR 
COMPUTATIONS OF SPACE SHUTTLE ANNULAR SLOT RADIATION PATTERNS 

[a 1 1 linear dimensions are for l/35-scale model] 


Case 

Figure 

Perimeter, 

cm 

Number of 
points and 
simultaneous 
equations 

Coordinates x,y, cm, of 
center of annular slot 

Phasor voltage strength, volts, and coordinates 
x,y, cm, of equivalent narrow axial slots 

1 

6 

70. 55 

154 

A = (0. , 14. 690) at P 43 


' V 40 = 1 / 0° at P 40 = (0.762, 14.690) 
V 46 = 1 / 180° at P 46 = (-0.762, 14.690) 

2 

7 

70.58 

159 

Bj = <9.165, 1.600) at P g 

V 

'V - l/o° at P - (9.369, 0.866) 
, V u = 1 / 180° at P u = (8.961, 2.334) 

3 

8 

70. 58 

166 

Bj = (9.165, 1.600) at P g 

B J 

'V = l/o Q at P, = (9.369, 0.866) 
Vj, - 1 / 180° at P., ■= (8.961, 2.334) 

B 2 = (-9.165, 1.600) at P 9Q 

V 

V 87 = 1 / 180° at P 87 = (-8.961, 2.334) 
lV 93 - 1^0° at P 93 =- (-9.369, 0.866) 

4 



11 

142. 86 

178 

A = (0., 11.500) at P 4g 


r V, c = 1 / 180° at P._ = (0. 741, 11. 766) 
,V - l/l° at P.j - (-0.741, 11.234) 





Figure 1.- Geometry of the Space Shuttle orbiter and location of the pitch and roll planes. 








Figure 2.- Geometry for which RIEF is applicable. 




Figure 3.- Representation of an annular slot by an equivalent array of two narrow 
axial slots for purposes of computing the specified radiation pattern. 
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K 


39.04 cm 



—21.60 cm- — 


L-74-1070 

Figure 4.- 1/35-scale model (cylindrical model) for obtaining 
roll-plane radiation patterns experimentally. 
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(a) Side view. L-74-1071 

(b) Front view. 

(c) Oblique view. 

(d) Model under test. 

Figure 5.- 1/35-scale model (three-dimensional model) for obtaining 
roll- and pitch-plane radiation patterns experimentally. 
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— Theory ( R I EF) 

— Experiment (Three-dimensional model) 

— Experiment (Cylindrical model) 



Figure 9.- Roll-plane radiation pattern for case 1 (theory compared with experiment). 

Frequency. 311.4 MHz (10.900 GHz). 



Figure 10.- Computed roll-plane radiation patterns as function of frequency. 
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Figure 13.- A plot of the coarse points for case 3; that is, for the example 
given in appendix B. The coarse points are indexed sequentially as one 
moves counterclockwise from the positive X-axis. The IDIVD array 
values are given for selected cases. 
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0 30 ! 80 270 3G0 


O r , deg 

Figure 14.- Graphic output, at a frequency of 5.250 GHz, for 
the example given in appendix B. The polar plot is a plot 
of radiation field magnitude in decibels against the roll- 
plane reference angle in degrees. 


NASA -Langley, 1974 L-9279 
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